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Quali stati compongono gli 
U.S.A.? Come si dice ‘Ci vediamo 
lunedì’ in francese? Atari studia con 
tuo figlio nel modo più moderno e 
intelligente. Con Atari lui impara a 
risolvere problemi di ogni tipo: da 
come sarebbe andata a Waterloo se 
lui avesse diretto le operazioni, a 
come riprodurre un brano musicale, 
a come risolvere una equazione. 

E si prepara così alla nuova civiltà 
del computer. 

Non per niente Atari è in dota- 
zione in molte scuole di ogni tipo, 
come aiuto prezioso sia per gli stu- 
denti che per gli insegnanti. 

Non avevate ancora pensato di 
regalare uncomputera vostro figlio? 
Allora, pensate a un Atari. E” facile 
e veloce, non più grande di una 


macchina per scrivere e non più co- 
stoso di un hi-fi. Basta collegarlo a 
un qualsiasi apparecchio TV e Atari 
è pronto per funzionare. A casa vo- 
stra, magari anche per giocare con 
i videogames, ma naturalmente 
anche nel vostro studio o negozio, 
officina o laboratorio. 
Perchè Atari sa fare molte cose, 

è il nuovo strumento di lavoro per 
chi vive la professione in modo mo- 
derno e aggiornato. Atari calcola, 
prevede, consiglia soluzioni, dise- 
gna grafici e figure, archivia, fattu- 

a... è il collaboratore-amico che vi 
può dare una mano ogni giorno. 

Potete sceglierlo nel più agile 

modello 400 o, se avete problemi 
più complessi, nel sofisticato model- 
lo 800, fornito del potente sistema 


COSA FA UN COMPUTER ATARI 
CON TUO FIGLIO? 


gestionale VisiCalc. E potete sce- 
gliere anche tra una vastissima 
gamma di accessori. 

Chiedete un Atari in prova al 
vostro negoziante di fiducia, e dopo 
un giorno insieme vedrete come è 
utile, facile e, perchè no, affascinan- 
te possedere un Atari. 
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@gappie computer presenta alcuni dei suoi corsi per PERSONAL COMPUTER: 


P1 Introduzione ai Personal Computer 


Durata: 1/2 giornata (ore 16,30) 
Codice 39005050 
Prezzo Lit. 30.000 -- IVA 15% 


Che cos'è un “personal computer”, a cosa serve, cosa si usa e a quali moltepici problemi fornisce la 
soluzione. Una panoramica introduttiva al fenomeno del “personal computer" con particolare 
riferimento ai sistemi Apple Il e Ill. 


RI Gestione delle Informazioni con Sistemi Apple Compu- 
ter 


Durata: 1 giornata 
Codice 39005350 
Prezzo Lit. 70.000 + IVA 15% 


Come la massa di informazioni di ogni tipo di attività può essere organizzata, aggiornata e ritrovata 
in modo semplice e immediato con i personal computer Apple Il e III. Una introduzione all'utilizzo 


dei programmi tipo "data-base” con particolare riferimento ai prodotti VISICALC/VISIPLOT/VISI- 
FILE ecc. 


SI Apple ][ Plus e Linguaggio BASIC 


Durata: 2 giorni 
Codice 39006050 
Prezzo Lit. 150.000 + IVA 15% 


Esame delle caratteristiche base del sistema Apple Il Plus e delle sue principali periferiche. 
Introduzione alle possibilità operative del medesimo con particolare riferimento alla programma- 
zione con il linguaggio BASIC Applesoft e con. il sistema operativo a dischetti DOS. 


RI Sistema APPLE /// e Linguaggio Business BASIC 


Durata: 2 giorni 
Codice 39006500 
Prezzo Lit. 200.000 -- IVA 15% 


Introduzione alle caratteristiche base e alle molteplici possibilità operative del sistema Apple Ille 
delle sue periferiche, incluso il disco rigido Profile 

Presentazione dei programmi applicativi disponibili, del linguaggio di programmazione Business 
BASIC e del sistema operativo SOS con particolare riferimento al “System Utility" per la definizione 
delle periferiche collegare al sistema. 


WI Programmazione PASCAL con Sistemi Apple Computer 


Durata: 2 giorni 

Codice 39006750 

Prezzo Lit. 240.000 + IVA 15% 
Introduzione ai fondamenti del linguaggio di programmazione strutturata UCSD PASCAL, che 
permette di ottenere programmi di più rapida esecuzione e più facilmente documentabili e modifi- 
cabili 
Esposizione dei concetti base del sistema Apple PASCAL con particolare riferimento ai program- 
mai Editor, Compiler, Assembler 6502, Linker e Filer, operanti su Personal Computer Apple Il e III 


Per ogni tipo di informazione e per le iscrizioni [3a edele&tron., 


ai corsi rivolgersi a: C.so Sempione, 39 - 20145 MILANO 
Tel. (02) 34.93.603-31.85.678-31.85.571-34.90.176 
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Il computer può usare contro di voi i principi 
dell’intelligenza artificiale. Con il programma 
descritto in questo articolo potete giocare a Master 
Mind contro il calcolatore. Vi accorgerete che sarà 
un avversario difficile da battere. E apprenderete i 
principi dell'intelligenza artificiale. 
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Inizia una rubrica di “giochi informatici”, 
strettamente apparentati ai “giochi matemati n 
voga in questo periodo. Per iniziare, c'è un problema 
semplicissimo da dire, ma difficilissimo da risolvere. 
Il calcolatore può aiutare a capirci qualcosa. 


RUBRICHE 


Editoriale 
Software vuol dire programmi? 


N 


Giochi informatici 
Un piccolo grande problema 


Il linguaggio dell’informatica 
Da dove vengono i termini dell’informatica 


L’arte di programmare 
Proverbi per informatici 
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In Basic. la programmazione ricorsiva non è 
prevista. ma si può fare. Come, è descritto in questo 
articolo, dove potete trovare anche delle applicazioni 
elementari, ed una applicazione più raffinata alla 
ricerca negli alberi di gioco. 
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Nel settore “Programmi” della rivista potete trovare 
listati da immettere e da eseguire subito nel vostro 
calcolatore. In generale per ogni programma viene 
data più di una versione. Date un'occhiata qui sotto, 
e vedete cosa c’è per la vostra macchina. 


Raccolta di routine Basic 
Punteggiatura 


Libri di software 
Una biblioteca per ottimizzare 


ARTICOLI 


Ventiquattro modi per scrivere un ciclo 


W.D. Maurer 
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Master Mind e intelligenza artificiale 
D.R. Hope 
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Programmazione ricorsiva in Basic 
A. Leal 
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Conversioni grafiche tra TRS-80, Apple e n | 


R. Kaplan 


PROGRAMMI 


Gioco del 15 


Animazione 3D 


PET, Apple. TRS-80 75. Atari 91 
Bersaglio Caleidoscopio 
PET, TRS-80 79 Atari 92 


Orologio digitale 
BEI, 
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Odissea nello spazio 
Sinclair ZX80 


Colpo strategico 


TRS-80 
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Roulette russa 
Sinclair ZX80 


File comandi 


TRS-80 
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Reverse 
Sinclair ZX80 


Cuore matto 


Atari 
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REM come dati 
Sinclair ZX80 


PI 


INIZIARE 
NEL MODO 
MIGLIORE 


Guida al 
SINCLAIR 
ZX81 
ZX80-Nuova 
ROM Si 


Pagg. 262 ( <} 


Cod. 318B 


L. 16.500 È ss 


Abb. L. 11.500) 


IL LIBRO 

Questa guida, con chiarezza, semplicità 
espositiva e ricchezza di esemplificazioni, 
risulta un vero e proprio strumento 
operativo per tutti coloro che vogliono 
avvicinarsi all’informatica in generale, e 
imparare la programmazione in BASIC, in 
particolare travalicando i tre calcolatori 
(ZX81, ZX80, ZX80 nuova ROM) a cui fa 
riferimento. Partendo da quello che è un 
computer, il lettore impara nei primi sei capitoli 
a programmare in BASIC, spingendosi, per chi 
lo vuole, oltre, sino alla programmazione in 
linguaggio macchina. L’ultimo capitolo riporta 9 N 
parecchi programmi e per ciascuno, vengono “a 
fornite, dove possibile, le diverse versioni. Tra 

l’altro si parlerà di file e di animazione delle figure. 

Per finire ben otto Appendici, essenziali ed 

utilissime, tra cui Spiccano per interesse le due 


dedicate ai sistemi operativi dello ZX80, ZX80 nuova 
ROM e ZX81. 


a, 


“n i 
vs = 


Per ordinare il volume 
utilizzare l'apposito tagliando 


inserito in fondo alla rivista. 
SOMMARIO 


Introduzione - Il calcolatore - Installazione del calcolatore 
- La programmazione - Il linguaggio BASIC - Come ) 
operare - Utilizzo della memoria - Linguaggio macchina - 
Esempi di programmi ---- caratteri del sistema - variabili del 
sistema - scheda BASIC ZX80 rin DAdle FErdoNe 
X81 - errori segnalati dalla macchina - s 
La dello ZX80 - sistema operativo dello ZX81 e nuova ROM 
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Divisione Libri 


Mauro Boscarol 


Software vuol dire programmi? 


uesta nuova rivista si chiama Personal 

Software. Tutti sanno in che senso è usato 

il termine “personal”. Ma software cosa 

significa? Sfogliando le riviste specializza- 
te si trovano appositi settori “riservati” al softwa- 
re. E in questi settori ci sono programmi, tanti 
programmi, per le varie macchine, nelle varie 
versioni, con l’elenco delle variabili, con l’elenco 
delle routine. 


L'idea che ci fa, è che “software” sia qualco- 
sa cui dedicare un settore a parte della rivista. 
Le cose “vere” sono le macchine, le stampanti, 
i plotter, le inchieste di mercato, le prove, i te- 
sti, la guida all’acquisto. A parte, c’è il softwa- 
re. 

E ci si fa una seconda idea: che il software 
siano i programmi. Programmi quasi esclusiva- 
mente in Basic, talvolta qualcosa in linguaggio 
macchina, ma sapendo che il lettore lo guarda 
con sospetto. 


Questa rivista è nata con la voglia di cambia- 
re. Di far capire che il software non è “a 
parte”. D’altronde tutti lo dicono: nei prossimi 
anni ci sarà la fame del software. Noi diciamo 
che i prossimi anni sono adesso, ed iniziamo a 
parlare solo di software, il nostro unico argo- 
mento. 


Ed iniziamo a dire che il software non sono 
solo programmi Basic. Anche noi abbiamo una 
sezione di programmi Basic per le varie macchi- 
ne nelle varie versioni. Ma parliamo anche di 
altro. Parliamo di come si fa il software, di co- 
me si scrive, di come si può valutare. Trattiamo 
il software come un argomento del quale si può 
diventare “esperti”, sul quale ci si può fare una 
cultura. Pensate possibile essere esperti e colti 
in “programmi Basic per il CBM 3032”? 


Per noi il software è arte della programma- 
zione, intelligenza artificiale, analisi degli algo- 
ritmi. Non è troppo complicato. Il nostro lin- 
guaggio sarà piano e comprensibile. Non chiu- 
deremo la porta in faccia a nessuno, faremo so- 
lo divulgazione culturale in questo particolare 
campo. E comunque alla fine ci sono sempre i 
programmi. 


In questo primo numero, oltre ai programmi, 
trovate degli articoli e delle rubriche. Gli uni e le 
altre sono aperte ai lettori: invitiamo chiunque 
avesse qualcosa da dire o da scrivere a farlo subi- 
to. Le rubriche non hanno dei titolari fissi: di 
mese in mese pubblicheremo gli interventi che ci 
sembreranno più in tema, anche se le diverse 
opinioni potranno essere contrastanti. 


Per gli articoli, l’unico tema da rispettare è il 
software: di base o applicativo, intelligenza arti- 
ficiale o gestione aziendale, pubblicheremo tutto 
quello che riterremo interessante per i nostri let- 
tori. 

Gli articoli di questo numero toccano temi di- 
versi. Ventiquattro modi per scrivere un ciclo è un 
bell’esempio di come deve venir condotta l’anali- 
si di un algoritmo, che in questo caso è il più 
semplice che possa esistere: il ciclo appunto. 
L’articolo sul Master Mind rientra nel campo del- 
l'intelligenza artificiale: come si può istruire il 
calcolatore a giocare una partita contro un 
“umano”, in modo che sia stimolante e competi- 
tiva? Qui ci sono alcune semplici regole, e il tutto 
è una introduzione alle tecniche dell’AI (intelli- 
genza artificiale). Un’altro tipo di tecnica, questa 
volta di programmazione, è spiegata in dettaglio 
in Programmazione ricorsiva in Basic. Si tratta 
appunto della ricorsività, implementata in molti 
linguaggi, per esempio il Pascal, l’Algole il PL/1. 
In Basic non c’è, ma la si può fare lo stesso. E la si 
può applicare per esempio proprio all’AI, nella 
ricerca di in albero di gioco. Infine un ultimo 
articolo riguarda le conversioni grafiche tra i per- 
sonal più diffusi. E una raccolta di informazioni, 
notizie e consigli per effettuare tali conversioni. 

Su tutto questo aspettiamo il parere dei lettori. 
Dal prossimo numero ci sarà anche una rubrica di 
posta, sempre che i lettori ce lo permettano. Gra- 
diremmo anche ricevere pareri negativi: voglia- 
mo anche noi l’angolo del “Non ci sto!”. (_] 


9 Texnz InsrRUMENTO 


Texas Instruments Vi ottre oggi una splen- 
dida occasione. Basta semplicemente scrivere pro- 
grammi di software. 

Se volete contribuire alla veloce crescita del 
mercato del software per gli Home Computers, 
possiamo aiutarvi. Eccovi come. 

Il computer TI-99/4A è un sofisticato calco- 
latore progettato non solo per il principiante che 
desidera la facilità di funzionamento, ma anche 
per il professionista. Alla base di ciò c'è la ripro- 
vata qualità del microprocessore a 16 bit TMS 
9900, che lo rende uno dei più potenti e versatili 
microcomputers 

Il TI-99/4A offre una quantità di prestazioni 
che è difficile trovare in sistemi similari. 

Il TI-99/4A dispone di una RAM interna di 
16 k Byte, espandibile a 48 k Byte e ad una capa- 
cità combinata RAM/ROM di ben 110 k Byte. Il 
T1-99/4A è facilmente collegabile ad un qualsiasi 
normale televisore. Gli s1 possono inoltre connet- 
tere tante altre periferiche: stampante, disk driver, 
interfaccia RS 232 e sintetizzatore vocale. La sua 


TEXAS INSTRUMENTS 


SCRIVETE UN PROGRAMMA 


DI SOFTWARE 
PER L’HOME COMPUTER 


COL MIGLIOR RAPPORTO 
PRESTAZIONI/PREZZO: 


IL TI 99/48 


TI99/9A 


tastiera professionale permette di scrivere sia con 
cara:teri maiuscoli che con caratteri minuscoli. 

Se poi aggiungete le capacità grafiche ad alta 
risoluzione con 32 caratteri su 24 righe a 16 colori 
(256 x 192 punti), 3 tonalità su 5 ottave più gene- 
ratore di effetti sonori, i linguaggi di programma- 
zione in BASIC, UCSD-PASCAL, TI-LOGO e 
ASSEMBLER, che potete usare da consolle 0 da 
periferiche standard, vi accorgerete di quanto il 
TI-99/4A superi la concorrenza. Specialmente 
se poi date un’ occhiata al suo prezzo di 
598.000 lire IVA esclusa. 

Per risolvere i vostri problemi, potete usare 
facilmente la vasta gamma di programmi residenti 
su moduli «Solid State Software»? della Texas 
Instruments. Oltre 600 programmi di software 
sono già disponibili nel mondo. 

Desideriamo espandere ulteriormente il 
software già esistente su moduli «Solid State Soft- 
ware»®, Cassette e dischi, con programmi promet- 
tenti, scritti da persone entusiaste. Ecco perché ci 


rivolgiamo a voi. 


Poiché abbiamo riservato a questo programma 
di sviluppo del software solo un numero limitato 


di sistemi con TI-99/4A, affrettatevi 
a spedire oggi stesso il coupon 

che vi permetterà di conoscere 

in dettaglio le modalità di 
partecipazione. 


[e] 
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Spedire a Texas Instruments Semiconduttori Italia 5. p.A 


I Divisione Prodotti Elettronici Personali I 
| Software Rallye | 
| Casella Postale 1 Cittaducale (Rieti) I 
| Sono interessato al programma per l'Home Computer I 
|| 1199/44 della Texas Instruments 

I Spedite, per tavore, ulterioni informazioni a I 
la 0a 2 I 
| None I 
Il 3a I 

Adro 

I I 
I I 
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TExAS INSTRUMENTS 


In effetti sono 124 modi 


(o anche di più) il che 
illustra l’infinita varietà 
di cicli, la più semplice 
frale tecniche di 
programmazione. 


di W.D. Maurer 


La riproduzione di questo articolo 
è stata concessa dalla rivista BYTE. 
Traduzione di Renzo Pevarolo 


Ventiquattro modi 
per scrivere un ciclo 


er cominciare, osservate la 
Pi 1. Ci sono diverse cose 
relative a questa tavola che 
sono sorprendenti. 
Tutto quello che dobbiamo fare 
è spostare alcune quantità da un 
posto ad un altro. Ci sono N quan- 
tità, chiamate P(1)...P(N). Dob- 
biamo spostarle in 0OQ(1)...O(N), 
cosa che facciamo, naturalmente, 
usando una istruzione FOR in Ba- 
sic, COSÌ: 


10 FOR J=1 TO N 
20 O(J)=P(I) 
30 NEXT J 


che dovrebbero avere un senso per 
voi anche se non conoscete il Basic 
(ma a patto che conosciate un po’ 
di inglese). Ma cerchiamo di farlo 
senza usare l’istruzione FOR, per 
capire come funzionano i cicli; ed 
immediatamente ci troviamo da- 
vanti a un gran numero di possibili- 
tà. La tavola 1 mostra le prime 
ventiquattro. Sono tutte differenti; 
sono tutte corte; e fanno tutte esat- 
tamente la stessa cosa. (Be’, non 
proprio esattamente la stessa cosa. 
Alla fine di qualcuna J è uguale a 
N+1; alla fine di altre J può essere 
uguale a N o a 1, o a 0. Ma poiché 
presumibilmente non useremo J 
dopo aver finito il ciclo, ciò non ha 
importanza). 

Perché ci sono così tanti modi 
per scrivere un ciclo? Perché ci so- 
no certe cose che possiamo fare in 
due o più modi. 


Possiamo cominciare con Q(1) e 
andare fino a Q(N) (prima e secon- 
da colonna nella tavola 1), oppure 
possiamo cominciare con O(N) e 
scendere fino a Q(1) (terza e quar- 
ta colonna). 

Abbiamo tre cose da fare dentro 
il ciclo: porre Q(J) uguale a P(J); 
incrementare (o decrementare) J di 
uno; e fare un test. Queste tre cose 
possono essere disposte in sei mo- 
di: chiamandole U, V e W, possia- 
mo disporle come UVW, UWV, 
VUW, VWU, WUV o WVU. 
Ognuna di queste sei combinazioni 
corrisponde ad una delle sei righe 
della tavola 1. 

Quello che può essere ora sor- 
prendente relativamente alla tavola 
1 sono i sottili modi in cui non tut- 
to è perfettamente simmetrico. Per 
esempio, nell’ultima colonna, la 
variabile J è talvolta inizializzata a 
N e talvolta a N+1. Quest'ultimo 
caso richiede un po’ più di tempo 
(a meno che N non sia veramente 
una costante, come 10). Nella pri- 
ma colonna, J è talvolta posto 
uguale a 1 e talvolta a 0, il che su 
alcuni computer richiede un po’ 
meno tempo che porlo uguale a 1. 

Non ci vuole molto a capire, co- 
munque, che nell’enumerare venti- 
quattro modi per scrivere un ciclo, 
abbiamo in realtà solo graffiato la 
superficie. Quali sono alcune delle 
altre cose che avremmo potuto fa- 
re? 

Guardando in cima alla seconda 
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J=1 
ZO 0(I)=P0I) 
zo d=dJ+t1 


40 IF JE3N+1 GOTO 20 

10 J=1 10 

ZO D(I)=P(I) 20 

SO IF J=N GOTO 60 ZO 

40 J=d+1 49 

S0 GOTOZO 10) 

10 J=0 

20 J=d+1 

ZO 0(J)=F (I) 

40 IF JN GOTO 20 40 
J=Q 10 
J=J+1 ZO 
TF J=N+1 GOTO 60 O 
®(J)=P (I) 

GOTO 20 

10 d=1 10 

20 IF J=N+1 GOTO 60 2 

ZO D(I)=P (I) 

40 J=gJ+1 

50 GOTO 20 

10 J=0 10 

20 IF Jd=N GOTO 60 20 

30 J=J+1 zo 

40 Q(J)=F(J) 40 

SO G0TO 20 So 


J=l J=N Jd=N 
O(J)=F (JI) Q(J)=FP(J) QIT)=F (I) 
J=J+1 d=d-1 d=J-1 q 
IF J=N GOTO 20 IF Ji IF J3=1 GOTO 20 
J=1 J=N 
O(J)=P(I) Q(J)=P(I) 
IF J3=N GOTO 60 IF J=1 GOTO 60 
J=J+1 J=J-1 
GOTO 20 50 GOTO 20 
J=0 
J=d+1 
OLI)=FP(I) x k Ode s A 
IF JN GOTO 20 40 IF J>1 G0T0 20 
ù 
J=Q 10 J=N+1 
Jed+1 Ù 
IF J5N GOTO 60 O GOTO 40 
O(I)=F(I) OI (dI) 
GOTO 20 SO GOTO 20 
d=l 10 J=N 
Ls GOTDO 60 IF _J=0 GOTO 60 O GOTO 60 
O(J)=P (I) Q(I)=P(J9 FI) 
J=d+1 J=J-1 
GOTO 20 GOTO 20 GOTO 20 
J=0 10 J=N+1 
IF J3=M G0T0 609° 20 IF J=1 GOTO 60 
J=J+1 30 J=J-1 
Q(I)=F0I) 40 Q(J)=P (I) 
GOTO 20 SO SO G0T0 20 


GOTO 20 


Tavola 1. Ventiquattro modi per scrivere un ciclo in Basic. Questi ventiquattro metodi di base possono dar luogo, 
con una serie di piccoli cambiamenti a 124 diversi tipi di cicli. 


colonna, vediamo che stiamo veri- 
ficando se J è minore o uguale a N. 
Avremmo potuto ugualmente veri- 
ficare se J era minore di N+1. Lo 
stesso tipo di cambiamento poteva 
essere fatto nella seconda e quarta 
colonna, dando luogo a un totale 
di trentasei modi per scrivere un ci- 
clo. 

La maggior parte dei cambi di 
questo tipo ovviamente peggiora le 
cose. E chiaro che impiega più 
tempo un test su N+1 che un test 
su N, anche se mettiamo qualche 
nuova variabile come N1 uguale a 
N+1 prima del ciclo e quindi fac- 
ciamo il test su NI all’interno del 
ciclo. Una possibile eccezione a ciò 
è quella in cima all'ultima colonna, 
dove potremmo verificare se J è 
maggiore di 0. In linguaggio assem- 
bler su un sistema che si basa sul 
6800 usando dati interi con segno 
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su 8 bit, lo si può fare con una 
istruzione BGT (salta se è maggio- 
re di zero) direttamente dopo il de- 
cremento. 

Possiamo considerare la possibi- 
lità di porre Q(J+1) uguale a 
P(J+1) o Q(J-1) a P(J—1) piutto- 
sto che Q(J) uguale a P(J). In alcu- 
ni casi questo accelera alcune delle 
operazioni del ciclo. Per esempio, 
in cima alla prima colonna, avrem- 
mo potuto porre J uguale a 0 e ve- 
rificare J con N piuttosto che con 
N+1, se poniamo Q(J+1) uguale a 
P(J+1). Ambedue questi cambia- 
menti costituiscono miglioramenti 
dal punto di vista del tempo. 

Può sembrare che ponendo 
Q(I+1) uguale a P(J+1) ci sia una 
perdita di tempo rispetto a porre 
Q(J) uguale a P(J). Ovviamente, 
non è così, o non dovrebbe essere 
così su un sistema ben costruito 


(sebbene possa essere così in alcu- 
ne versioni di Basic). Una costante 
additiva o sottrattiva in un indice 
(come J+1) non deve essere calco- 
lata. Per capire il perché di questo, 
abbiamo bisogno di alcune nozioni 
di linguaggio assembler; coloro che 
conoscono solo il Basic possono 
saltare il prossimo paragrafo, in cui 
viene data la spiegazione. 

Ogni volta che facciamo riferi- 
mento a t(v) per un vettore { e una 
variabile v, dobbiamo sommare il 
valore di v all’indirizzo di 4. 
Sull'8080 questo viene fatto esplici- 
tamente; tipicamente si fa un LXI 
H,t seguito da un DAD D dove il 
registro DE contiene v (cioè dove 
il registro E contiene v e il registro 
D contiene 0) e quindi possiamo 
fare riferimento a ti(v) facendo 
ADD M o MOV r,M 0 MOV Mr 
o quello che è. 
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Ventiquattro modi per scrivere un ciclo 


Sul 6502, questo viene fatto in 

hardware; si fa un LDA t,X o un 
STA #,X o un ADC £,X o quello 
che è, dove il registro X contiene 
v, ma l'hardware somma il registro 
X all’indirizzo dato nell’istruzione, 
il che in effetti somma v all’indiriz- 
zo di t in questo caso. Ogni micro- 
computer ha dettagli leggermente 
differenti, ma l’idea è la stessa in 
ogni caso. Ora supponete che desi- 
deriamo fare un riferimento a 
t(v+k), dove k è una costante. 
Dobbiamo sommare il valore di 
v+K all’indirizzo di #, il che è lo 
Stesso di sommare il valore di v al- 
l'indirizzo di più K. La questione 
è che sia & che £ sono costanti; il 
loro valore non cambia durante l’e- 
secuzione del programma. Quindi 
l’indirizzo di : più & è anche una 
costante e questa addizione può es- 
sere fatta prima che il programma 
parta. Sull’8080, per esempio, do- 
vremmo solo dire LXI H,t+k inve- 
ce di LXI H,t; si tratta di una sin- 
gola istruzione il cui campo indiriz- 
zo (secondo e terzo byte del codice 
d’istruzione) contiene la quantità a 
16 bit ottenuta sommando € all’in- 
dirizzo di £. Sul 6502, possiamo di- 
re LDA t+k,X e ancora abbiamo 
una singola istruzione il cui campo 
indirizzo contiene l’indirizzo di { 
più k. Lo stesso funziona, ovvia- 
mente, per i riferimenti a t(v-k) 
invece di {(v+k). 

Ad ogni modo, sommando 1 o 
sottraendo 1 al nostro indice, ab- 
biamo prodotto due nuovi modi di 
scrivere un ciclo da ognuno di 
quelli che già avevamo. Ora abbia- 
mo 108 modi per scrivere un ciclo. 
Naturalmente, in teoria, potremmo 
porre Q(J+2) uguale a P(J+2) o 
OQ(J-2) uguale a P(J-2), e così via 
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all'infinito. Non c’è nessun limite 
(eccetto le considerazioni di over- 
flow intero) sul numero di nuovi 
modi di scrivere un ciclo. 

Uno di questi, per inciso, ha una 
certa importanza pratica. Il micro- 
computer IM6100 (o PDP-8) ha 
una istruzione di incremento, ma 
non una di decremento. Inoltre, 
l'incremento esegue un confronto 
con 0 (è chiamato ISZ, increment 
and skip on 0). Ciò non corrispon- 
de a niente nella tavola 1; se fac- 
ciamo il confronto con 0, nella ta- 
vola 1, è sempre nel decremento. 

Tuttavia, considerate il seguente 
ciclo: 

10 J=-N 

20 O(J+N+1) = P(J+N+1) 

305=J+1 

40 IF J< >0 GOTO 20 


Questa volta non possiamo usare 
il trucco di cui abbiamo parlato pri- 
ma a meno che N non sia costante. 
Tuttavia, se N è una costante, que- 
sto ciclo fa la stessa cosa di tutti gli 
altri cicli di tavola 1; e le sue due 
ultime istruzioni vengono eseguite, 
sul IM6100, dalla singola istruzione 
ISZ J, seguita da un salto all’eti- 
chetta 20. 

Abbiamo finito con i migliora- 
menti in velocità nel nostro ciclo? 
Non del tutto. Considerate il se- 
guente ciclo: 


10 J=2 

20 Q(I-1) = P(I-1) 

30 Q(J) = P(J) 

40J= J+2 

50 IFJ <= N GOTO 20 


Supponete che N sia 100. Allora, 
invece di fare questo ciclo cento 
volte, possiamo farlo solo cinquan- 
ta volte. Ogni volta, uguagliamo 


due elementi del vettore Q ai corri- 
spondenti elementi del vettore P. Il 
vantaggio è che J=J+2 si fa solo 
cinquanta volte, J=J+1 si deve fa- 
re cento volte nei cicli di tavola 1; 
e anche l’istruzione IF viene ese- 
guita solo cinquanta volte invece di 
cento. 


Si può accelerare un 
ciclo facendolo con 
passo due, ed 
eseguendo 
l’assegnazione di due 
elementi alla volta? 


In pratica, il miglioramento qui 
non è così buono come sembra. 
L'assegnazione J=J+2 è general- 
mente più lenta di J=J+1. In effet- 
ti, su molti microcomputer, il mo- 
do più veloce di fare J=J+2 è di 
fare J=J+1 due volte. Sul 6502, le 
due assegnazioni di vettore si pos- 
sono fare molto elegantemente una 
dopo l’altra, con 


LDA P-1,X 
STA Q-1,X 
LDA P,X 
STA Q,X 


Fino a che il valore di J è nel re- 
gistro X. Sull’8080, tuttavia, sup- 
ponendo che l’indirizzo di P(J—1) 
sia in DE e l’indirizzo di Q(J-1) 
sia in HL, dovrete fare qualcosa 
come: 


LDAX D 
MOV MA 
INK D 
INX H 


volume e X: 


per ordinare ME stando i Z-80 
aizzare apposto rivista: È, È 
utile if infondo alla iv Pag. 540 L. 24.000 (Abb. L. 21.600) 


pisani Cod. 328D Formato 14,5 x 21 


i Questi due libri sono stati ideati come 
testi autonomi e completi per imparare la 
programmazione in linguaggio Assembler, 

usando lo Z80 o il 6502 (i microprocessori 

forse più diffusi). 

Scorrevoli da leggere, non richiedono 

alcuna conoscenza di base, ne di 

elettronica generale né di 

programmazione. 

Sono stati progettati, infatti, sotto forma 

di corso che, sistematicamente, passo 

dopo passo, porta il lettore dai concetti di 

base fino alle tecniche di programmazione 

avanzate, al fine di permettergli la 
realizzazione di programmi sempre più 
complessi. . } 

L'esposizione progressiva, rigorosamente 

strutturata, comporta la risoluzione 

obbligatoria di esercizi attentamente 
graduati al fine di verificare che si sia 


6502 


veramente capito quanto presentato? Pag. 384 

Ben si prestano, perciò, a chi si avvicina L. 22.000 

per la prima volta ai microprocessori e ne (Abb. L. 19.800) 
vuole conoscere e capire gli aspetti Cod. 503B 


essenziali di programmazione. Per tutti 
coloro che già hanno programmato, 
invece, sarà una vera e propria miniera di 
informazioni sulle caratteristiche specifiche 
del microprocessore d’interesse, 
evidenziandone, nel contempo, vantaggi e 
svantaggi. 
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Ventiquattro modi per scrivere un ciclo 


LDAX D 
MOV MA 
INX D 
INXH 


dove il secondo INX D e INX H 
predispongono i registri DE e HL 
per il prossimo ciclo. Quindi l’uni- 
co miglioramento qui consiste nel- 
l’eseguire meno volte il test alla fi- 
ne del ciclo. 

Ovviamente la stessa idea può 
essere implementata incrementan- 
do la variabile J di 3, di 4, o più 
ogni volta, sebbene ci sia un corri- 
spondente aumento di memoria oc- 
cupata dal programma. Un'altra 
difficoltà con questo schema è che 
non funziona se J non è multiplo di 
Z; o dell’incremento. Se questo 
non è il caso, allora alcuni elementi 
extra verranno trasferiti da un vet- 
tore all’altro, e ciò può causare ri- 
sultati imprevedibili. La tecnica ge- 
nerale (nota come “srotolare” un 
ciclo) può tuttavia avere qualche 
utile applicazione sui grossi compu- 
ter. Anche su un piccolo sistema è 
spesso utile, particolarmente quan- 
do N è un numero molto piccolo 
come 3, scrivere: 


10 Q(1) = P(1) 
20 Q(2) = P(2) 
30 Q(3) = P(3) 
che è migliore di ognuno dei cicli 
che abbiamo finora discusso. 

. Un altro miglioramento in velo- 
cità dei cicli si ha da un’analisi del 
caso in cui N=0). Se dobbiamo spo- 
stare N quantità, allora, se N è 0, 
non dobbiamo spostare niente; in 
altre parole in questo caso non 
dobbiamo fare proprio niente. 
Molti dei nostri cicli, tuttavia, o di- 
ventano infiniti, o spostano una 
singola quantità, P(1) o P(N). In 
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particolare questo vale per tutti i 
cicli della prima o terza riga della 
tavola 1. La ragione del fatto che 
ciò da un po’ di disturbo è che que- 
sti sono gli unici cicli nella tavola 1 
che usano tre istruzioni ripetute (le 
linee 20, 30 e 40). Essi sono quindi 
i più veloci, poiché tutti gli altri 
usano quattro istruzioni ripetute 
(le linee 20, 30, 40 e 50). 


In Fortran c’è un errore 
“istituzionalizzato” 
nell’esecuzione dei 
cicli. 


Sembrerebbe che avessimo una 
scelta tra rallentare il ciclo e avere 
un ciclo che non funziona per 
N=0. In Fortran, in effetti, la scel- 
ta che è stata fatta è quella di non 
considerare il caso N=0, in favore 
di un ciclo più veloce. (Si potrebbe 
chiamare questo un “errore istitu- 
zionalizzato” in Fortran.) Dopo 
tutto, ragionano coloro che lavora- 
no in Fortran, possiamo sempre 


verificare se N=0 immediatamente 
prima di partire con il ciclo, se vo- 
gliamo evitare questo caso. Ma c’è 
un modo migliore. Possiamo scri- 
vere: 

10J=1 

20 GOTO 50 

30 Q(J) = P(J) 

40J=J+1 

50 IFJ<= N GOTO 30 


avendo quindi solo tre istruzioni ri- 
petute (le linee 30, 40 e 50) e un 
ciclo che funziona anche con N=0. 

Può sembrare che questo ciclo 
violi un sacro precetto saltando in 
mezzo ad un ciclo (alla linea 20). 
In effetti, tuttavia, il problema 
connesso con il salto al centro di 
un ciclo non si applica al caso spe- 
ciale del salto ad una delle istruzio- 
ni di incremento e verifica alla fine 
del ciclo, a patto di sapere quello 
che si fa. (Se abbiamo un ciclo 
FOR in Basic, non possiamo mai 
saltare dall’esterno del ciclo all’i- 
struzione NEXT alla sua fine; stia- 
mo semplicemente parlando sul 
modo in cui il ciclo FOR può esse- 
re implementato). Dl 
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Un piccolo grande 
problema 


matematici questo problema, di sempli- Mt È; 
cissima esposizione, ma di soluzione Le sla PETTECETTTTTTTTTTTTTri 
molto difficile. zo FEM 
Prendete un numero (intero, positivo). Se è 30 REM CONGETTURA DI ULAM 1 


D: un po’ di tempo circola negli ambienti 


pari dividetelo per due. Se è dispari, moltiplica- 40 REM 
telo per tre, sommategli uno e dividetelo per 500 REMO KERI 
due. Otterrete un altro numero (intero, positi- 60 REM 
vo). 70 INFUT X 

Riapplicate la stessa procedura, che possia- 80 IF INT(X/2)* G0T0 110 
mo riassumere così: 90 X=xX/2 


O 120 
BKX+1) /2 
PRINT Xg 

IF.X{*1 GOTO 80 
140 FRINT 

150 PRINT"CICLO 1-2" 
1650 GOTO 70 


1 Consideriamo un intero positivo x. 
2 Sexè pari vai a 3, altrimenti a 4. 
3 xex/2; vai a 2. 

4 x(3x+1)/2; vai a 2. 


Prima di porre il problema, applichiamo la 
procedura un paio di volte. Se partiamo da 12, 
otteniamo di seguito 


1263584212... 


cadendo così nel ciclo 1-2 che possiamo indica- n 
re così: Figura 1. 


1-623-5-8-4-2S1. 
Riproviamo partendo da 25: otteniamo 
25-38-19-29-44-22-11-17-26-13> 


REM AGOSSOUICIOOGIORIGIOSIOIOOE 


-20-10-5-8-24-22S1. REM 
Anche in questo caso siamo caduti nel ciclo 1-2. CONGETTURA DI ULAM 2 
Bene, il problema è proprio questo: è vero 40 il 
che partendo da qualsiasi numero (intero, posi- SO REMO AERSCRIOOOIOORI OOO 


tivo) si cade sempre nel ciclo 1-2, oppure par- 
tendo da qualche numero particolare non si ca-- 
de mai in questo ciclo? 

Tutti gli esperimenti fatti, anche con compu- 
ter molto potenti, confermano che si cade nel 
ciclo 1-2, ma mai nessun matematico è riuscito 
a dimostrare che ciò è vero per ogni numero 
(intero, positivo). La cosa è tuttavia così verosi- 
mile che si ha la convinzione che succeda così. 
Questa convinzione è detta “congettura di 
Ulam”. 

Può comunque darsi che ci sia qualche nume- 
ro (molto grande) partendo dal quale non si ar- 
riva mai al ciclo 1-2: per esempio perché si cre- 
sce sempre, o perché si cade in un ciclo diverso. 

Con il vostro calcolatore potete fare qualche 
esperimento. Figura 3. 


GOTO 110 


BOTO 20 
UVA IN CICLO 1-2 


Un piccolo grande problema 


In figura 1, per iniziare, c'è un 
programma che semplicemente au- 
tomatizza la procedura di calcolo 
della successione. Si dà un numero 
in input e si può controllare se la 
successione “cade” nel ciclo 1-2. In 
figura 2 sono riportati i risultati che 
si ottengono partendo rispettiva- 
mente da 42, 27, 41 e 107. 

Il programma implementa esat- 
tamente l’algoritmo descritto all’i- 
nizio. Nell’istruzione 70 si introdu- 
ce l’intero di partenza. Nella 80 si 
controlla se è pari, e in tal caso si 
va alla 90, oppure dispari, nel qual 
caso si va alla 110. L'istruzione 120 
stampa il nuovo numero e nella 
130 si controlla se è 1. 

Nella figura 3 è riportato invece 
un programma di verifica globale. 
Questo programma si basa sul 
principio che, se si è verificato che 
tutti i numeri minori o uguali ad x 
cadono in un ciclo 1-2, per quanto 
riguarda x+1 basterà ovviamente 
controllare che nel corso della pro- 
cedura diventi minore o uguale a x. 

Il programma dunque esamina 
tutti i numeri, uno dopo l’altro, a 
partire da 3. Nelle istruzioni da 90 
a 130 si applica il solito algoritmo. 
Nell’istruzione 140 si controlla se il 
numero in esame, x+1, è diventato 
minore o uguale a x. 

Il programma non ha termine. In 
pratica però, a un certo punto x di- 
venterà così grande che la macchina 
non riuscirà più a rappresentarlo co- 
me numero intero. Passerà alla no- 
tazione esponenziale, e quindi non 
ci potrà più essere d’aiuto. 

Potete comunque divertirvi a 
controllare se la congettura di 
Ulam è verificata per tutti i numeri 
cui può arrivare il vostro calcolato- 
re. Ma non fatevi troppe illusioni. 
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Usare il sistema operativo 


| 
IL LIBRO 

Il sistema operativo CP/M è stato, progettato per. 

rendere semplice l’uso di un microcomputer. 

Questo libro vi renderà semplice l’uso dell CP/M. 


(Le versioni esaminate dell CP/M sono il CP/M 
1.4-il CP/M 2.2: e il nuovo sistema operativo, 
multiutente MP/M), La maggior parte di utenti di 
microcomputer dovrà, infatti, un giorno o l’altro, 
fare ricorso al CP/M, disponibile su) quasi tutti i 
computer basati sui microprocessori 8080 Z80, 
come pure su certi sistemi utilizzanti il 6502) Ill 
libro, senza presupporre alcuna conoscenza di un 
calcolatore, inizia con la descrizione, passo-passo 
delle procedure di inizializzazione dellsistema: 
accensione, inserimento dei dischetti, esecuzione 
delle più comuni operazioni su file, compresa la 
duplicazione dei dischetti. Prosegue con il PIP 
(programma di trasferimento dei file), i! DDT 
(programma di messa a punto) e ED (programma 
editor). Per entrare sempre più, fornendo, 
numerosi consigli pratici, all’interno del 
delle sue operazioni, al fine di 

appieno le risorse ed even 
strumenti per successive m. 


i 
i (o USI 
CP/M e allPMP/M-Le 

tteristiche del CP/M e dell’MP/M-Gestione 

file con PIP-L’uso dell’editor-Dentro al CP/M 
e all’MP/M-Guida di riferimento ai comandi e ai 
programmi del CP/M e dellPMP/M-Consigli 
pratici-Il futuro-messaggi 
di controllo di ED-nomi dei dispositivi di PIP- 
riassunti dei comandi-parole chiave di PIP- 
parametri di PIP.tasti di controllo per la 
digitazione dei comandi-tipi di estensione-lista dei 
materiali-organizzazione della stanza del 
calcolatore-verifiche in caso di errore-regole di 
base per la localizzazione dei guasti. 


comuni di errore-tabella 


Pagg. 320 Cod. 510P 
L.22.000 (Abb. L.19.800) 


__Perordinare il volume 
utilizzare l'apposito tagliando 
inserito in fondo alla rivista. 
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In questo programma il 
computer usa i principi 
dell’intelligenza 

artificiale contro di voi. 


di Duan R. Hope 


Il programma listato nella prossime 
pagine è stato realizzato con un TRS- 
80. È facilmente adattabile ad ogni 
personal computer perché non usa le 
caratteristiche grafiche dello scher- 
mo. 


Master Mind 
e intelligenza 


artificiale 


vete mai sentito parlare di 
A prison artificiale  sfo- 

gliando la vostra rivista di 
computer? Forse vi sarete doman- 
dati che cosa fosse e come avreste 
potuto utilizzarla. 

L’intelligenza artificiale (IA) è 
un sistema realizzato con computer 
che mostra un comportamento che, 
se osservato nell’uomo, viene chia- 
mato intelligenza. Le forme più co- 
muni di intelligenza di un sistema 
IA sono la capacità di risolvere 
problemi, di apprendere e di rico- 
noscere delle strutture. 

Mescolando questi ingredienti, i 
sistemi IA sono stati progettati per 
risolvere vari problemi più o meno 
complessi, come l’analisi degli in- 
vestimenti, la dimostrazione di teo- 
remi o anche il gioco degli scacchi. 

Ho applicato tecniche di IA per 
la prima volta ad un programma di 
Master Mind. Avevo già scritto un 
programma che permetteva ad una 
persona di giocare a Master Mind: 
il computer generava un codice e 
valutava ogni tentativo del giocato- 
rei 

Questa versione mi ha presto 
stufato. Per fare in modo che an- 
che il computer potesse indovinare 
un codice pensato dal giocatore, ho 
modificato il programma utilizzan- 
do tecniche di IA. Anche se questa 
versione del Master Mind non è 
così sofisticata come i sistemi ciber- 
netici di investimento, il computer 
dimostra con essa un comporta- 


mento intelligente. Esso infatti im- 
para a ripetere il processo necessa- 
rio ad indovinare un codice segre- ‘ 
to. 


Il Master Mind 


Se non conoscete il Master 
Mind, si tratta di un gioco di logica 
deduttiva prodotto dalla Invicta, 
che si gioca in due persone: il deci- 
fratore e il codificatore. I due gio- 
catori si scambiano i ruoli dopo 
ogni partita. : 

All’inizio del gioco, il codificato- 
re prepara un codice formato da 4 
pioli colorati scelti fra sei gruppi di 
colore diverso. Il decifratore non 
può vederlo e deve cercare di indo- 
vinarlo facendo dei tentativi che 
vengono man mano valutati dal co- 
dificatore. 

Per le sue valutazioni il codifica- 
tore userà un piolino nero per ogni 
piolo del tentativo corretto sia co- 
me colore che come posizione, 
mentre ne userà uno bianco per in- 
dicare un piolo corretto come colo- 
Te ma non come posizione. Il codi- 
ficatore, tuttavia, non dirà mai a 
quali pioli del tentativo si riferisco- 
no le sue valutazioni. Vedi esem- 
pio 1. 

Il codificatore valuta il tentativo 
dell'esempio 1 con un nero e dué 
bianchi. Se questo fosse il primo 
tentativo, il decifratore non avreb- 
be idea di quale fosse il piolo giu- 
21 
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sto sia come posizione che come 
colore (quello giallo) e quali due 
fossero giusti solo come colore 
(quello rosso e quello blu). 

Il codificatore riceve un punto 
per ogni tentativo del decifratore. 
Quando tutti e due i giocatori sono 
stati sia codificatore che decifrato- 
re per uno stesso numero prefissa- 
to di volte, si confrontano i punteg- 
gi: vince ovviamente chi ha più 
punti. 


Analisi mezzi-scopi 


La parte più difficile nell’inse- 
gnare ad un computer a giocare a 
Master Mind sta nell’insegnargli ad 
indovinare un codice segreto. Ma 
indovinare un codice segreto può 
essere paragonato a risolvere un 
problema. 

Per fare questo possiamo utiliz- 
zare una delle tecniche di soluzione 
dei problemi dell’IA. Personal- 
mente ho deciso di usare l’analisi 
mezzi-scopi studiata da Newell e 
Simon. 

Nell’analisi mezzi-scopi, gli scopi 
rappresentano la soluzione di un 
dato problema, e vi ci si riferisce 
come “stato finale”. Lo “stato 
attuale” dice quanto vicino è il.so- 
lutore del problema allo stato fina- 
le ed è formato da tutte le informa- 
zioni accumulate durante la ricerca 
della soluzione. 

Nell’analisi mezzi-scopi è fonda- 


mentale il concetto che c’è una dif- 
ferenza misurabile fra lo stato at- 
tuale e lo stato finale. La differen- 
za può essere ridotta con una ripe- 
tuta applicazione di particolari 
operazioni ai dati precedentemente 
acquisiti. Questi sono i mezzi nella 
soluzione del problema. 

Nel Master Mind lo stato finale è 
indovinare il codice. Lo “stato 
attuale” è dato da tutte le informa- 
zioni che il decifratore ha accumu- 
lato durante il gioco. Inizialmente 
lo “stato attuale” è rappresentato 
solo dalla conoscenza delle regole 
del Master Mind. 

La differenza tra lo stato finale e 
lo stato attuale è il numero massi- 
mo di tentativi che il decifratore 
potrebbe dover fare per indovinare 
il codice. Visto che il codice è for- 
mato da quattro pioli e ogni piolo 
potrebbe assumere sei colori diver- 
si, potrebbe essere necessario, per 
il decifratore, fare 1296 
(6x6x6x6) tentativi prima di in- 
dovinare il codice. Per ridurre que- 
sta differenza, la prima mossa sarà 
fare un tentativo. 


Protocollo verbale e grafi di 
comportamento al problema 


Il protocollo verbale è un’altra 
tecnica di IA che viene utilizzata 
per scoprire quali ragionamenti 
vengono fatti dall'uomo per risol- 
vere un certo problema. Per regi- 


Posizione Posizione Posizione Posizione 
1 2 3 4 
Codice blu rosso rosso ‘giallo 
Tentativo rosso blu verde giallo 
Esempio 1. 


strare questi ragionamenti, si chie- 
de al solutore del problema di pen- 
sare. ad alta voce mentre cerca di 
trovare la soluzione. 

I ragionamenti vengono scritti su 
di un foglio di carta che è chiamato 
“protocollo verbale”. Questo viene 
analizzato per scoprire le operazio- 
ni che il solutore ha fatto per arri- 
vare alla soluzione. 

L’analisi viene semplificata usan- 
do dei grafi di comportamento al 
problema che sono una rappresen- 
tazione del protocollo verbale. 

Per spiegare come possono esse- 
re utilizzati il protocollo verbale e i 
grafi vediamo l’esempio di un deci- 
fratore che deve fare il suo primo 
tentativo per indovinare il codice 
di una partita di Master Mind. Per 
esemplificare l’esempio, useremo i 
numeri da 1 a 6, invece dei sei co- 
lori, per formare il codice. 

Poniamo che il codice sia 4326. 
Sappiamo già che per prima cosa il 
decifratore deve fare un tentativo 
per ridurre la differenza fra stato 
attuale e stato finale. 

Il protocollo verbale del primo 
tentativo sarà una cosa di questo ti- 
po: 

“Vediamo, devo fare il pri- 
mo tentativo. Allora, con 
cosa posso iniziare? Ah sì, 
potrei iniziare con 1111”. 

Il codificatore valuta il ten- 
tativo con 0 neri e 0 bian- 
chi. l 

Il decifratore continua a 
pensare: “Nessun bianco e 
nessun nero, vuol dire che 
il codice non contiene nes- 
sun 1”. 

Per disegnare il grafo di compor- 
tamento al problema, si rappresen- 
ta lo stato attuale con un rettango- 
lo. Un’operazione che ci porta ad 
un nuovo stato sarà rappresentata 
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facile come un personal, potente come un mini. 


Devi seguire tempestivamente clienti e fornitori, 
aver sempre aggiornata la situazione crediti e paga- 
menti, far fronte puntualmente a scadenze e impegni? 

Desideri ottenere rapidamente elenchi fatture e ri- 
cevute, imputare direttamente dai documenti (senza 
prima nota) le registrazioni contabili, quadrare giornal- 
mente cassa e fuori cassa, emettere bolle di consegna 
e fatture, tenere aggiornato il magazzino, fare i bilanci 
eiconti economici peri controllibudgetari e di fine anno? 
fi Affidati al PC-3201 della Sharp. Il 

] PC-3201è il posto di lavoro EDP che 
f2P puoi facilmente assegnare alla tua 
j aziendaoaltuoufficio. Perché è dota- 
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o di un BASIC interattivo di facile comprensione e di 
una architettura completa e sofisticata che potrai 
espandere su misura delle tue esigenze. 
I PC-3201 possiede infattiuna ROM da 32 K e una 
RAM da 82 K espandibile fino a 112 K, un grande vi- 
deo, memorie a minidischi e una veloce stampante. 
In questa configurazione il PC-3201 è alla portata di 
tutti: il suo prezzo parte infatti da 8.500.000 lire. 
IIPC-3201 è completato dai pacchetti applicativimes- 
si a punto dalla Melchioni Computerti- == 
me che lo distribuisce in esclusiva per 5 = 5 
lTtalia e che ne cura l'assistenza anche ® + 
MELCHIONI 
COMPUTERTIME” 


grazie alla sua rete di Concessionari, 
Via Fontana, 22 - Milano - Tel. 585.116 - 541.569 
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INTERNORO 


380 
390 
400 
410 
420 
30 
340 
450 
460 
470 
480 
490 
500 
S10 
520 
530 
540 
550 
560 
570 
580 
590 


605 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 


50 


770 
780 
790 


800 
gio 
820 


PC=0: FPP=0 

GOSUB 560 ELSE GOSUB 960 
GOSUEB 960 ELSE GOSUB 560 
IF GC=0 GA$="PARTITA" ELSE GA$ 
PRINT"DOPO";GC+1;6GA$;" IL PUNTEGGIO E?:" 
PRINT: PRINT" "NA$;PP 

PRINT" COMPUTER":;PC 

FOR I=i1 TO 2500: NEXT I 

GC=GC+1 

IF GC<NG GOTOZEO 
MIs="PARITA?" 
PRINT 

IF PC>PP THEN Mi 
IF PCSPP THEN Mi 
PRINT Mi$ 

PRINT: INFUT"VUDI FARE UN? ALTRA PARTITA" 
IF LEFT$(M1$,1)="S" GOTO 240 
PRINT: PRINT"GRAZIE PER AVER 
END 

REM LIGEIEEIIsi:0333t0t3C3 5302 CCTCStTTTTI 
REM x 
REM X 
REM x 
REM OBUUOIUSVOAISOAAORAA AO 
PRINT: 


PARTITE" 


"HO VINTO I0" 
HAI VINTO TU" 


GIOCATO, 


ROUTINE DEL CODIFICATORE 


C0$ 

IF LEN(C0$)<>4 GOTO 600 
NUM$=C0: GOSUB 1290 

IF ER{>O GOTO 600 
RESTORE 

FOR R=1 TO 6 

FOR C=1 TO 4 

READ FOCR,C) 


NEXT C,R 

Ci=l: 62= GU=0O # 

GU=GU+1 

IF GU=1 THEN FOR I=i TO 4: C(I)=RND(6): 

IF GU=2 THEN C(1)= 3 C(2)=C2: C(3)=C3: 
THEN FOR I=1 TO 4: C(I)=GT(GU-1, 
GOSUB 1690 

FOR I=i TO 4: TRY&=TRY$+RIGHT$(STR$(C(1) 


760 PRINT"PER FAVORE VALUTA IL TENTATIVO NUM. "GU; 


INFUT" QUANTI NERI":BE 

INFUT" QUANTI BIANCHI"; 4JW 

FOR I=i TO 4: 6T(6U,1)=C(I): NEXI I: GT 
GT (GU, 6) =WW 


NUM$=C0$: GOSUB 1290 
FOR I=1 TO 4: C(I)=TC(I): NEXT I 
NI «1$=TRY$: G0SUB1290 


100. REMO AI IIOSOUOAUAOAOAOVIOOVAACUOGOUOSAUOROIOOOOIOOORAAOO 
110 REM X 
120 REM X MUA.S'T ER MIND x 
130 REM * DI 7 * 
140 REM * DUANE R. HOPE Net * 
150 REM * È caRÉ * 
160 REM 0.$$3$2%30%0%2%2030303032%t:33230322t22%322032323232%2%1 
161 REM LA 
162 REM 
163 REM IIPIIIIVAIIIVIIVAVAIVFIGOANIIIIGIVO VIVARO ISAIA IAA 
170 REM & x* 
180 REM * PROGRAMMA PRINCIPALE * 
190 REM x x 
V:0/0]i 1,8 02 0020$2t20300310232222 0222000020000 00000250ttC0t0t100001 
210 RANDOM: CLS: DIM GT(20,6) 
220 PRINT" MLA SETIESR MI ND":PRINT 
230 INPUT"COME TI CHIAMI":NA$ 
240 PRINT: INPUT"QUANTE PARTITE VUDI FARE"3NG 
250 IF NG<1 GOT0240 
260 PRINT 
262 FRINT"ADESSO LANCIO UNA MONETA FER DECIDERE IL ORDINE 

DEL GIOCO" 
265 PRINT 
270 PRINT"TESTA — SEI IL CODIFICATORE" 
280 PRINT"CROCE — SEI IL DECIFRATORE" 
290 FOR I=1 TO 1500: NEXT I 
300. CT=RND (2) 
310 IF CT=1 M1$="TESTA": M2$="CODIFICATORE" 
320 IF CT=2 Mis="CROCE": M2$="DECIFRATORE" 
330 PRINT M1$;"! TU SEI IL ";M2$: PRINT 


3Mi$ 


"a NA$ 


L0s$3332222303333t31 
* 
* 
x* 
LRS3E233t33232232201 


FRINT"TOCCA A TE A FARE IL CODICE": PRINT 
600 INPUT"BATTI IL CODICE DI 4 CIFRE CHE ID DOVRO” INDOVINARE": 


NEXT I 
C(4)=C4 
I): NEXT I 


) 1): 


(GU, 5) =BB: 
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da una freccia. Vedi figura 1. 

Analizzando il grafo si vede che 
la prima operazione da fare è il 
tentativo 1111. Questo ci porta dal 
primo stato (quando sapevamo so- 
lo le regole) al secondo (quando 
sappiamo che il tentativo è stato 
valutato con 0 neri e 0 bianchi). 
Questa operazione ha ridotto la 
differenza tra lo stato attuale e lo 
stato finale da 1296 possibili tenta- 
tivi a 1295. Il grafo (b) della figura 
1 mostra la seconda operazione, 
“Se bianchi + neri = 0 allora i nu- 
meri di questo tentativo non posso- 
no essere contenuti nel codice”, 
che ci porta ad un successivo stato 
attuale: il codice non contiene nes- 
sun 1. Questa seconda operazione 
ha ridotto ulteriormente la diffe- 
renza tra lo stato attuale e lo stato 
finale a 625 possibilità 
(SX5SXxSX5). 

Per ridurre ancora la differenza 
tra stato attuale e stato finale, ho 
registrato un protocollo verbale 
mentre cercavo di indovinare sva- 
riati codici, ed ho scritto dei grafi 
di comportamento al problema. 
Elaborando i grafi, ho trovato che 
le operazioni potevano essere divi- 
se in due gruppi: riconoscimento di 
strutture e apprendimento. 


Riconoscimento di strutture 

Il riconuscimento di strutture è 
una tecnica di IA usata per trasfor- 
mare delle informazioni in azioni. 
Nel riconoscimento di strutture c’è 
una corrispondenza biunivoca fra 
le informazioni che si hanno e le 
azioni che si fanno. Le operazioni 
di riconoscimento di strutture che 
ho trovato sono contenute nell’e- 
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La famiglia di personal computer più completa 
attualmente sul mercato per imprenditori, professionisti, 
tecnici, amministratori. 

Vi aspettiamo per fornirvi la più ampia documentazione 
e le più complete dimostrazioni. 
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È {PUTERS - Torino - 011/835156 - COMPDATA -Ivrea - 0125/49069 - OLIVIERI & GOVERNA - Alessandria - 0131/ 
I gen FREM RAND ITALIA - Genova 010/884971 - TECNOSYSTEM - Sanremo - 0184/884794/5 - LOMBARDIA SHARCO (di MI- 
GLIORI ROBERTO) - Gavirate - 0332/745526 - ADEL - Brescia - 030/221674 - GAME - Treviglio - 0363/40803 - ENNE COMPUTER - Portichetto 
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sempio 2. 

In certi casi, l’uso dei meccani- 
smi di riconoscimento delle struttu- 
re porta a ridurre la differenza tra 
lo stato attuale e lo stato finale. In 
altri casi, il riconoscimento della 
struttura deve essere appoggiato 
dal processo di apprendimento. 


Apprendimento 


Il processo di apprendimento è 
una tecnica di IA che modifica gra- 
dualmente un sistema di decisione 
programmato per migliorarne il 
funzionamento. Le modifiche ven- 
gono fatte in base ai risultati otte- 
nuti in precedenza. 

Per esempio, ogni tentativo del 
decifratore, con la valutazione re- 
lativa, viene memorizzato. Prima 
di fare le mosse successive, vengo- 
no rivalutati i tentativi precedenti 
in base al tentativo che sta per es- 
sere fatto. Se ogni valutazione data 
in precedenza corrisponde a quella 
attuale allora il tentativo potrebbe 
corrispondere al codice, e verrà 
giocato. Se invece una qualunque 
“rivalutazione” è diversa da quella 
originale, allora il tentativo sarà 
scartato. Questo è il processo di 
apprendimento. 

Poniamo che il codice sia 4316 e 
che il primo tentativo sia 1111. 
Questo sarebbe valutato con 1 ne- 
ro e 0) bianchi. La differenza fra lo 
stato attuale e lo stato finale sareb- 
be ridotta di 1. Tuttavia, usando il 
processo di apprendimento, possia- 
mo ridurre ulteriormente questa 

differenza eliminando tutti i tenta- 
tivi il cui risultato, quando con- 
frontato con Ill non sia 1 nero c 
0) bianchi. Vedi esempio 3. 
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850 GOSlIB1480: REM VALUTAZIONE DEL TENTATIVO 

840 FOR I=1 TO 4: TC(I)=C(I): NEXT I 

AND Wj=W GOTO 880 

THEN B$="NERO" ELSE B$="NERI" 

THEN Ws="BIANCO" ELSE 4V$="BIANCHI" 

860 FRINT"AVRESTI DOVUTO BATTERE ":B;B%;" E":430% 

870 GT (6U,5)=E: GT (6U,6)=W 

820 IF B=4 THEN FF=PF+Gl: PRINT"HO INDOVINATO!!":RETUEN 

890 IF B+W=4 GOSUB 1840 

900 IF B+W=0 GOSUB 1990 

910 IF H=0 AND V<->0 GOSUB 2110 

PRINT“STO FENSANDO" 

S30 GO0T0 690 

940 DATA 1t1,1,1,2,2,2:2:3 
50 RETURN 

960 REMO AIUUOUOBOIPSASASSSRICISUSAGRIIUIUOSIPISSGCOIOSSSSSOSOAIAAA 


3,4,4,4,4,5,5,5,5,6,6,6,6 


970 REM X * 
980 REM X* ROUTIME DEL DECIFRATORE * 
990 REM * * 


1000. REMEDODOIUSOGROSOSSOSSSOUOOSASSSSSO IAS AAA 
FRINT: FRINT"ADESSO TOCCA A ME A FREFARARE IL CODICE" 


FOR I=1 TO 2500: NEXT I 
FRINI 
FRINT"SA BENE, SONO PRONTO. FATOHO TUO PRIMO FENISI 1)" 


1040 FRINT 

1050 NO=0 lì 

1060 FOR I=1 TO 4: C(I)=RND(6): MEXT I 

1070 INFUT"BATTI IL TUO TENTATIVO ‘(4 CIFREV":[Fr® 
IF LEN{TRY$) 24 6070 1070 

NUM$=TRY$: BGOSUB 12590 

IF ER<50 60T01070 

GOSUB 1480: REM (VALUTAZIONE DEL TENTATIVO) 
NO=NO+1 


1120 FRINT“"TENTATIVO NUMERO 
1130 IF B<>4 G0T01070 

1140 PRINT"HAI INDOVINATO!!!" 

1150 FC=FC+NO 

1160 RETURN 

1170 REM SISIOUUUAUHUOROA GUISA AAA AAA 


1180 REM % * 
1190 REM * ROUTINE PER TRASFORMARE UNA STRINGA DI QUATTRO * 
REM X CIFRE NEL VETTORE NUMERICO TI) + 
REM * x 
Stato 1 Stato 2 
Tentativo Nero = 0 
1111 Bianco = 0 


(a) | (1296 possibilità) (——_____, (1298 possibilità) 


Stato 2 (Reiner Il Stato 3° 
(b) | Nero=0 Se N+B=0 i nu- Il codice non ha nessun 
Bianco = 0 meri di questo uno (625 possibilità) 


(1295 possibilità) tentativo non 
possono essere 


nel codice 


Fig. 1. Grafo di comportamento al problema. 


Azione 
Non usare questi numeri nei prossimi tentativi. 


Struttura di valutazione 
Neri + bianchi = 0 


Neri = 0; bianchi = 0 | numeri di questo tentativo non potranno ap- 
parire nella stessa posizione nei prossimi ten- 
tativi. 


Neri + bianchi = 4 Solo i numeri di questo tentativo sono nel codi- 


ce, non utilizzarne altri nei prossimi tentativi. 


È stato raggiunto lo stato finale, il codice è stato 
decifrato. 


Esempio 2. Operazioni di riconoscimento strutture. 
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La famiglia di personal computer più completa 
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tecnici, amministratori. 

Vi aspettiamo per fornirvi la più ampia documentazione 
e le più complete dimostrazioni. 
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PIEMONTE - GENERAL COMPUTERS - Torino - 011/835156 - COMPDATA -Ivrea - 0125/49069 - OLIVIERI & GOVERNA - Alessandria - 0131/ 
442646 LIGURIA - REM KARD ITALIA - Genova 010/884971 - TECNOSYSTEM - Sanremo - 0184/884794/5 - LOMBARDIA SHARCO (di MI- 
GLIORI ROBERTO) - Gavirate - 0332/745526 - ADEL - Brescia - 030/221674 - GAME - Treviglio - 0363/40803 - ENNE COMPUTER - Portichetto 
di Luisago - 031/920136 - C.E.E. - Vigevano - 0381/81555 - DATA STUDIO (di SERGIO CAVENAGHI) - Burago di Molgora - 039/663736 - LINEA 
UFFICIO (di ANNUNZIATA ELIO) - Cremona -0372/24364 - P.G.P. SISTEMA - Milano -02/2842860 - COMPUTER HOUSE - Monza - 039/362618 
TRE VENEZIE - SIGMA SYSTEM - Udine - 0432/26992 - INTERSOUND (di COPPETTI FRANCO) - Brunico - 0474/21282 - COMMERCIALE 
SISTEMI Thiene - 0445/.... - MINI SYSTEM - Bolzano - 0471/32270 - PENTA - Preganziol - 0422/938535 - PINARELLO - Padova - 049/754830 - 
SYSTEM COPY - 35100 Padova - 049/44982 - PINO ANDREA - Cerea -0442/82790 - TECNOSYSTEM - Vicenza - 0444/31152 - EMILIA ROMA- 
GNA - MARCHE - ABRUZZO - ADRIATICA COMPUTER - Senigallia - 071/62516 - GIMAR SISTEMI - Silvi Marina - 085/932739 - MULTIDA- 
TA - Reggio Emilia - 0522/27617 - M.R.P. TECNOSISTEMI - 40069 Zola Predosa - 051/751662 - RODAN & C. - Civitanova Marche - 0733/770386 - 
ROGANTIF.LLI - Montecassiano - 0733/5923 TOSCANA - ELECON - Piombino - 0565/33112 - MNEMO COMPUTERS - Firenze - 055/4378652 
-TECNOCOPY - Firenze -055/352801- LAZIO - EUROCOM - Roma - 06/7574487 - TECNOMEC - Roma - 06/484998 - CAMPANIA - PUGLIE - 
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DESIDERO NOME 
© RICEVERE UNA DOCUMENTAZIONE SULLE ? 
SOLUZIONI CON I COMPUTERS SHARP SOCIETA POSIZIONE 


SHARP INDIRIZZO 
SORIA 


] DISCUTERE IL MIO PROBLEMA : 
SPECIFICO CON UN VOSTRO INCARICATO CITTA TEL 


REM 
REM 
REM 
REM 


* INFUT:  NUM$ STRINGA DI 4 CIFRE 
x* 
x 
* 
REM * 
* 
x 
* 


x 
QUTFUT: T(I) VETTORE NUMERICO CONTENENTE * 
L’EQUIVALENTE DI NUM% * 
ER CODICE D’ERRORE * 
IESSUN ERRORE * 
REM IFRA <1 0 >6 IN NUM$ * 
REM x 
REM LI 
ER=0O 
FOR I=1 TO 4 
TC(I)=VAL (MID$ (NUM$,1,1)) 
IF TC(I)“1 OR T(I)>6 THEN ER=1 
NEXT I 
RETURN 


YEDODVODOUGGIOIIOOSOUOOIOIEVUOOLOGOOOOGIIIIIIIIOIA 


1360 REMO SRFHUHSHSOSSIAFOVOPOSUOAVAROGOGO UVB 
1370 REM % 


* 

ROUTINE FER VALUTARE UN TENTATIVO * 
* 

INFUT: T(I) VETTORE NUM. COL TENTATIVO * 
CI) VETTORE NUM. COL CODICE * 

* 

OUTFUT: E NUMERO DI NERI * 
Vv * NUMERO DI BIANCHI x 

* 

NE. IL CONTENUTO DI TI) VIENE FERSO * 
* 

AK 


333003023323 %%3t0302202302022222003022230 0003201 
1500 B=0: W=0 
1510 FOR I=i TO 4: WCI)=CC(I): NEXT I 
1520 FOR I=i TO 4 
TI) GOTO 1550 
T(I)=-2: B=B+1 


FOR I=1 TO 4 
FOR J=1 T0 4 

GOTO 1600 
V=b+1: GOTO 1610 


x 
ROUTINE PER FARE UN NUOVO TENTATIVO LS 
* 
OUTFUT: C(I) NUOVO TENTATIVO * 
* 
REM SOBIUOUSISORAUO ISAIA AIA UIIPIIISIA AAA 
GOSUR 20 
FOR L=1 TO GU-1 
FOR J=1 TO 4 
T(I)}=GT(L,J) 
NEXT J 
GOSUB 1480 
IF GT(L,5)=B AND GT(L,6)=W GOTO 1780 
GOTO 1700 
NEXT L 
RETURN 
REMI PUUSSAFUUISSSASPPIPSPSIIPIAIPIPSAGIISIISIAIIIIOAAI IAA 


REM * 
REM 
REM 
REM 


* ROUTINE PER ELIMINARE DALLA TABELLA DELLE POS- 
* 
* 
REM * 
* 
* 
I 
I 


* 

x 

SIBILITA” TUTTI I NUMERI TRANNE QUELLI CONTENU- x 

TI IN QUESTO TENTATIVO. * 

DA USARE QUANDO N+B=4 * 

REM * 
REM Li 
FOR 
FOR 


1 TO 6: EL(I)=Ix NEXT I 
1 TO. 4 


IVIFUVIPIACAIAIAPPIIPA GIP IIIIIIIGIIIIOAAAAAAAAAAAAAA 


a] 


Se questo tentativo 
fosse il codice 


Allora la valutazione 
di 1111 sarebbe 


1112 3 neri e O bianchi 
1113 3 neri e 0 bianchi 
1114 3 neri e O bianchi 
1115 3 neri e O bianchi 
1116 3 neri e 0 bianchi 


Master Mind 


Visto che il codice ha causato 1 
nero e 0 bianchi come valutazione 
al tentativo 1111, nessuno dei ten- 
tativi dell'esempio 3 potrebbe esse- 
re il codice perché se sostituiti al 
codice non danno come valutazio- 
ne 1 nero e 0 bianchi. 

In questo caso, le possibilità ver- 
rebbero ridotte a 500. 


Completamento dell’analisi 


Completando la mia analisi del 
grafo di comportamento al proble- 
ma, ho capito che sarebbe stato ne- 
cessario sviluppare un sistema per 
generare tutti i possibili 1295 codi- 
ci, altrimenti il computer non sa- 
rebbe mai stato in grado di fare dei 
tentativi. Inoltre questo generatore 
avrebbe dovuto produrre ogni co- 
dice solo una volta. 

Il generatore di tentativi avrebbe 
anche dovuto essere predisposto a 
funzionare in base ai risultati del 
riconoscimento delle strutture. Per 
fare questo ho usato la tabella delle 
possibilità della figura 2. 

Tutti i 1296 possibili tentativi 
possono essere generati da questa 
tabella. All’inizio i numeri conte- 
nuti nelle locazioni W, X, Y e Z 
sono posti uguali a 1. Poi, per ge- 


Numero Posizione 
da usare nel 

tentativo 

wW X n zZ 

1 1 1 1 1 

2 2 2 2 2 

3 3 3 3 3 

4 4 4 4 4 

5 5 5 5 5 

6 6 6 6 6 


Esempio 3. 


Figura 2. Tavola delle possibilità. 


nerare i tentativi successivi, la loca- 
zione Z varia da 1 a 6. 

Dopo le prime sei generazioni 
(ULI, 1112; L113,, 1014, 1115, 
1116) la locazione Z è posta uguale 
ad 1 e quella alla sua sinistra (la Y) 
è posta uguale a 2. Quando una va- 
lutazione dà 0 neri e 0 bianchi, 
ogni numero del tentativo può es- 
sere cancellato da ogni posizione 
della tabella delle possibilità po- 
nendo la relativa locazione uguale 
a 0. Ogni successivo tentativo che 


contiene almeno uno 0 può essere 
scartato. 


Il modello per risolvere il problema 


Le operazioni trovate analizzan- 
do il grafo di comportamento pos- 
sono essere riunite per formare un 
modello di soluzione del problema. 
Vedi figura 3. Il modello inizia ge- 
nerando un tentativo (primo passo) 
che non contraddica le informazio- 
ni ricevute finora (secondo passo). 
Se un tentativo le contraddicesse, 
verrebbe eliminato e ne sarebbe 
generato un altro, e così via, fino a 
quando ne viene generato uno pos- 
sibile che verrà considerato come 
tentativo da giocare (terzo passo). 

Dopo aver ricevuto la valutazio- 
ne (quarto passo) questa viene usa- 
ta nel meccanismo di riconosci- 
mento delle strutture (quinto pas- 
so) per vedere se qualche numero 
debba essere eliminato dalla tabel- 
la delle possibilità. Se la valutazio- 
ne era 4 neri (sesto passo), il codi- 
ce è stato indovinato e il problema 
risolto; altrimenti il modello ritor- 
na al primo passo e viene ripetuto 
il tutto. 

Il listato potrà aiutare a vedere 


EL (GT (GU, I))=0 

NEXT I 

FOR I=1 TO & 

IF EL(I)<>O THEN PO(I,1)=0: 
FO(I,4)= 
NEXT I 
RETURN 
1950 REM SUUOODOGIOSOOUCOAOOSOUUIISSUOIASUIOIPSOIORS SPOSO 
1960 REM * 


POC0I,2 


* 
1970 REM X ROUTINE PER ELIMINARE DALLA TABELLA DELLE POS- x% 
1980 REM X SIBILITA” TUTTI I NUMERI CONTENUTI IN QUESTO x 
1990 REM * TENTATIVO. * 
1995 REM X DA USARE QUANDO N+E=0 * 
2000 REM * * 
2010 REM IUS SUIUOSRIOSOSCOGOGOOSOOOSOSUOBADOSSOLRAOOOIOIOOE 


FOR I=1 T0 4 

FOR J=1 TO 4 

FO(GT(GU,I),J)}=0O 

2050 NEXT J,I 

2060 RETURN 

2070 REM IIS SUUSIVIIISSAVASIFIISUIIIIP AAA AVIO 


2080 REM * * 
2090 REM * ROUTINE FER ELIMINARE DALLA TABELLA DELLE FOS- x 
2100 REM X SIBILITA® QUESTO TENTATIVO. Li 
2110 REM * DA USARE QUANDO N=0 E B<30 * 
2120 REM X x 
ZITO REM IUIVUIIIUUIIIOOSAIUVOVOIIAUIV IALIA IA I 


2140 FOR I=s1 T0 4 

2150 FO(GT(GU,I),I)=0O 

2160 NEXT I 

2170 RETURN 

2180 REM AIARHIUUVOLIVODUAVUSAUIV ISIS 
2190 REM X % 
2200 REM X* ROUTINE FER ESTRARRE LN NUMERO DALLA TABELLA * 
2205 REM X DELLE FOSSIBILITA”. * 
2210 REM X* 4 LI 
2220 REM IGIGUOUAUUOUORUSAOOCOFOOGOOSOSOGOFIIAIAGAAAAAA AIA 
2230 GOTO 2360 

2240 IF FO(C1,1)&>O THEN C(1)=PO(C1,1): 
2250 Ci=Ci+1 

2260 IF C1<7 GOTO 2240 

2270 FRINT"ERRORE NELLA TABELLA DELLE POSSIBILITA” ":END 
2280 IF FO(C2,2)<>0 THEN C(2)=F0(C2,2): GOTO 2320 

2290 C2=C2+1 

IF C2<7 GOTO 2280 

C2=1: GOTO 2250 


GDTO 2280 


3+1 

IF C3<7 GOTO 
(e; 
C4=C4+1 

IF C4<7 GOTO 
C4=0: GOTO 2 
IF FO(C4,4)=0 
C(4)=F0(C4,4) 
RETURN 


come funziona effettivamente il 
programma. A questo punto do- 


Thizio del 
problema 


vreste essere in grado di applicare | essi sg } 
alcune di queste tecniche di IA ad prossima leniaivo ano 
altre situazioni nelle quali il com- eta Passo 2 
puter debba risolvere problemi o p_- 
prendere decisioni. n = Passo 3 
i tentativo 
Sì riceve la Passo 4 
valutazione 
Meccanismo di ricono- Passo 5 
scimanto dol stratura 
Stato finale Passo 8 


raggiunio? 
Figura 3. Diagramma di flusso del 
modello di risoluzione del proble- 
ma. 


Problema risolto 
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Le funzioni ricorsive si 


possono programmare 
anche in Basic: basta 
creare l’ambiente 
adatto. 


di Antonio Leal 


La riproduzione di questo articolo 
è stata concessa dalla rivista Creati- 
ve Computing. 

Traduzione di Bruno Pescarolo. 


Programmazione 
ricorsiva in Basic 


molti utenti di personal 
A cone la nozione di pro- 

gramma “ricorsivo” appare 
come un argomento elusivo, appar- 
tenente alla scienza dei calcolatori 
più avanzata ed ai linguaggi di pro- 
grammazione evoluti. Sebbene il 
Basic non sia stato progettato per 
supportare subroutine ricorsive, es- 
se possono essere implementate 
con minimo sforzo e con buoni ri- 
sultati. 

Nella codifica di programmi 
complessi, può essere risparmiata 
una grande quantità di tempo. Tut- 
tavia, è necessaria una qualche 
spiegazione preliminare del concet- 
to di ricorsività. 

Il presente articolo descrive alcu- 
ni dei concetti più importanti della 
programmazione ricorsiva e mostra 
come si possono usare. Gli esempi 
mostrano come programmare in 
Basic. Infine, la programmazione 
ricorsiva è applicata alla ricerca in 
un albero di gioco. 


Funzione 


Il concetto di funzione è fonda- 
mentale in matematica e informati- 
ca. In termini di programmazione, 
una funzione è una subroutine. 
Tuttavia, essa ha una struttura più 
ricca rispetto ad una subroutine 
Basic. Essa consiste in un nome, 
un certo numero di variabili in in- 
put dette argomenti o parametri, 


un corpo di istruzioni di program- 
ma, ed una quantità di output det- 
ta valore della funzione. Ecco un 
esempio di funzione scritta in for- 
ma matematica 

f@y) = +). 

La lettera f è il nome della fun- 
zione. Le variabili x e y sono gli ar- 
gomenti. Per poter usare la funzio- 
ne, bisogna sostituire gli elementi x 
e y con numeri e dopo il calcolo il 
risultato (valore) viene ritornato 
tramite il nome. Per esempio se 
poniamo x=3 e y=4 il risultato è 
25. 

In altre parole f (3,4) ritorna 25 
come valore di f. 

Una simpatica proprietà dei no- 
mi assegnati alle funzioni è che 
possono essere richiamati diretta- 
mente in altre espressioni. Per 
esempio, supponiamo che la prece- 
dente funzione facesse parte di un 
programma. Quindi, se scrivessimo 


b=2+f(3,4) 


il valore della funzione (25) sareb- 
be aggiunto a 2 e a b verrebbe as- 
segnato il valore 27. Quindi, quan- 
do la funzione ha un nome, essa 
può essere attivata semplicemente 
usando il nome, senza usare GO- 
SUB. 

Una funzione può essere scritta 
anche in forma di subroutine. Il se- 
guente esempio non è possibile in 
tutti i linguaggi di programmazio- 
ne, ma è accettato in molti di essi, 
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Programmazione ricorsiva in Basic 


SUERQUTIME FIX,Y) 


RETURN 


Nome della subroutine e argomenti 


Istruzioni 


Ritorno 


Figura 1. 


tra cui il Pascal. Vedi figura 1. 

La subroutine ovviamente può 
essere scritta ovunque all’interno 
del programma principale ed è atti- 
vata chiamandola per nome. Un 
concetto molto importante relativo 
alle funzioni è lo “scopo” delle va- 
riabili. Le variabili specificate co- 
me argomento (X e Y nell’esempio 
precedente) sono sempre locali alla 
subroutine e perdono il loro signifi- 
cato al di fuori di essa. Per esem- 
pio, considerate lo scheletro di 
programma di figura 2. 

In figura 2, la variabile X usata 
nel programma principale, non è la 
stessa X usata nella subroutine. 
Quando la subroutine è attivata, la 
X del programma principale (glo- 
bale) è salvata e viene creata una 
nuova X (locale) per l’uso all’inter- 
no della subroutine. Quando viene 
restituito il controllo al programma 
principale, la vecchia X globale ri- 
diventa attiva, conservando il suo 
valore Originale. Quindi, nell’e- 
sempio indicato, X avrebbe un va- 
lore 3 dopo l'uscita della subrouti- 
ne anche se la X locale era posta a 
4 dentro la subroutine. 

Lo scopo delle variabili suggeri- 
sce la nozione di “ambiente” di un 
programma, che è semplicemente 
una lista di tutte le variabili che so- 
no attualmente visibili e possono 
essere usate 0 cambiate. Quando 
l'esecuzione salta dentro e fuori 
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dalle subroutine, l’ambiente cam- 
bia corrispondentemente, e tutto è 
regolato dal sistema. 


Funzioni ricorsive 


Una funzione (subroutine) ricor- 
siva è una funzione che usa se stes- 
sa nella propria definizione. Le de- 
finizioni ricorsive sono molto utili 
per descrivere certi tipi di formule 
matematiche e, come vedremo, per 
programmare problemi complessi. 

Per esempio, il fattoriale può es- 
sere descritto sia in forma ricorsiva 
che in forma non ricorsiva. La più 
semplice descrizione del fattoriale 
è la seguente 


xl = 1:2:3-...x. 


In altri termini, x! è il prodotto 
di tutti gli interi da 1 a x, suppo- 
nendo che x sia un intero positivo. 

La definizione ricorsiva di x! è 
questa 


x=x(x-1)! 


Questa definizione usa il fatto- 
riale per definirlo. Essa dice che se 
si vuole sapere quanto vale x!, ba- 
sta moltiplicare x per (x--1)! e dun- 
que il calcolo deve aspettare. Infat- 
ti per calcolare (x—-1)! dobbiamo 
riapplicare la definizione: (x—1)! è 
semplicemente x-1 moltiplicato 
per (x-2)!, e così via. 


È naturale che questo tipo di de- 
finizione non è utile se non c’è un 
modo di bloccarla. Ogni funzione 
ricorsiva deve avere una “regola di 
stop”. La regola è semplicemente il 
valore iniziale per x = 1. La defini- 
zione ricorsiva completa deve com- 
prendere il valore iniziale 


1=1 
x=x(x-1)!. 


Ora sappiamo che quando l’ite- 
razione (ricorsiva) raggiunge 1, il 
risultato è 1 e la ricorsione si fer- 
ma. Ciò permette di “tornare 
indietro” e si possono fare tutti i 
calcoli lasciati in sospeso. La figura 
3 mostra la procedura per 5!. 

Un programma o subroutine per 
il fattoriale dovrebbe chiamare se 
stesso dal proprio interno. In altri 
termini, all’interno della subrouti- 
ne deve essere usato il suo stesso 
nome. Tuttavia, prima di poter fa- 
re questas chiamata, è necessario 
un test per vedere se la condizione 
di stop è stata raggiunta. Vedi figu- 
ra d. 

Ancora, la forma sopradescritta 
è una descrizione sommaria di co- 
me la subroutine debba essere ri- 
strutturata, e non fa parte di nes- 
sun particolare linguaggio. Si noti 
che F stesso è stato usato nella li- 
nea 2. Per una chiamata iniziale di 
F(5) cioè 5! la subroutine chiame- 
rebbe se stessa 4 volte. Si dice che 
la ricorsione è a 4 livelli di profon- 
dità. Ogni chiamata realizza auto- 
maticamente un nuovo ambiente in 
cui la X locale è differente dalle 
precedenti chiamate. Quindi, non 
vanno confuse. Alla fine, all’ultima 
chiamata, quando X = 1, la condi- 
zione di stop è verificata nella linea 
1 e viene ritornato un 1 come risul- 


PROGRAMMA PRINCIPALE 


SUBROUTINE BCX) 
-K=4 
RETURN 


END 


Istruzioni del programma principale 
(X globale) 


Istruzioni della subroutine 
(X locale) 


Istruzioni del programma principale 


Figura 2. 


tato. A questo punto, avvengono 
tutti i ritorni di subroutine, e i cal- 
coli sospesi vengono completati fi- 
no a che la subroutine esce per l’ul- 
tima volta con la risposta 5!. 

Alcune funzioni ricorsive dipen- 
dono non solo dal precedente valo- 
re. Per esempio, la successione’ di 
Fibonacci dipende dai precedenti 
due valori. Quindi, devono essere 
dati due valori iniziali quando si 
definisce la ricorsione 


Si=1 
f2)=1 
Fx) = f (x-1)+f(x-2) 
Questa definizione dice che il va- 
lore della funzione è la somma dei 
precedenti due valori e fornisce la 
seguente successione: 


« 1224567 & 
feel 1 passa. 


Ricorsività in Basic 


Non vi sono problemi nell’avere 
una subroutine che chiama se stes- 
sa in Basic. Il computer tiene trac- 
cia di tutti i punti di ritorno in ordi- 
ne, ma questo è tutto quello che 
può fare. Poiché gli argomenti non 
sono permessi, l’ambiente deve es- 
sere esplicitamente creato e salvato 


dal programmatore. Si può fare ciò 
dimensionando ogni singola varia- 
bile. (Per le variabili già dimensio- 
nate occorrerà incrementare la loro 
dimensioni di 1.) Questa dimensio- 
ne extra serve per contenere tutti i 
risultati intermedi della ricorsione 
e crea spazio per le variabili 
“locali”. Gli elementi di ogni varia- 
bile dimensionata corrispondono 
alla “profondità” della ricorsione e 
un indice tiene traccia di questa 
profondità. Ciò significa che ogni 
volta che viene fatta una chiamata 
a una subroutine, l’indice deve es- 
sere decrementato e, inversamen- 
te, ogni volta che si ha un ritorno, 
deve essere incrementato. Quando 
l’indice raggiunge 1, sappiamo che 
deve essere usata la regola di stop. 
La figura 5 mostra come program- 
mare il fattoriale in Basic usando la 
ricorsione. 

Si supponga che nella linea 30 si 
dia a X il valore 5. La prima chia- 
mata alla subroutine si ha nella li- 
nea 40. Alla linea 100 viene trovata 
non verificata la condizione di 
stop, e dunque X viene decremen- 
tata (a 4) e la subroutine viene an- 
cora chiamata. Questa volta, tutta. 
via, la linea di ritorno è la 130 e 
non la 50 come per la prima chia- 
mata. Il “ciclo” tra le linee 100 e 
120 continua fino a che X = 1, e la 


linea 100 causa un ritorno. 

Il ritorno è alla linea 130 e la su- 
broutine comincia a “riavvolgersi”. 
I ritorni successivi “ciclano” tra le 
linee 130 e 150 ponendo i risultati 
intermedi del calcolo in successive 
locazioni di F. Quando la ricorsio- 
ne è terminata (il che viene trattato 
automaticamente dal sistema), la 
subroutine ritorna per l’ultima vol- 
ta alla linea 50 e viene stampato il 
risultato finale F(5). (Per osservare 
il funzionamento della routine, in- 
serite 145 PRINT F(X)). 

La ragione per cui X deve essere 
incrementata nella linea 130 prima 
della definizione ricorsiva della li- 
nea 140 è che il risultato del calco- 
lo deve essere messo nella prossi- 
ma locazione di F. Se le linee fos- 
sero invertite, quando viene rag- 
giunto il più basso livello di ricor- 
sione e X = 1, F(X-1) farebbe ri- 
ferimento a F(0) che non è defini- 
to. Le linee 130 e 140 potrebbero 
essere invertite se la definizione ri- 
corsiva venisse cambiata come se- 
gue: 


INIZIO FINE 

v 

1 5!=(5)(4!) 9 risultato è 120 
V 7N 

2 4!=(4)(3!) 8 il risultato è 24 
v 7N 

3 31=(3)(2!) 7 ilrisultato è 6 
v À 

4 21=(2)(11) 6 il risultato è 2 


CREA] 
S 1!=1 


Figura 3. 
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Programmazione ricorsiva in Basic 


SUBROUTINE FX) 
1. IF X=1t THEN RETURN 1 


2. ELSE RETURN 


END 


XXF(X-1) 


Figura 4. 


130 F(X+1) = (X+1)*F(X) 
140X = X+1. 


Tuttavia alcune versioni di Basic 
non permettono calcoli dentro le 
parentesi se sono a sinistra di un 
segno di uguale. Quindi il primo 
metodo è migliore. 

Scrivere un programma per la 
successione di Fibonacci non è 
molto più complicato. La struttura 
del programma è identica. Tuttavia 


PROGRAMMA FRINCIFALE 


10 DIM F{(100) 


20 F(1)=i 

3O INFUT X 
40 GOSUR 100 
SO PRINT F(X) 
60 STOP 


SUEROUTINE EICORSIVA 


100 


IF X=1 THEN RETURN 


110 X=X-1 
GOSLUE 100 
30 X=X+1 
140 F(X)=XXF{(X-1) 
150 RETURN 
Figura 5. 
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la regola di stop nella linea 100 de- 
ve verificare che X sia minore o 
uguale a 2 piuttosto che X sia 
uguale a 1 perché in questo caso ci 
sono due valori iniziali. Vedi la fi- 
gura 6. 


Ricerca negli alberi di gioco 


Questo paragrafo tratta temi più 
avanzati e presuppone alcune co- 
noscenze sulla programmazione dei 
giochi di scacchiera mediante 
“albero di gioco”. 

L’uso dei programmi ricorsivi 
per calcolare semplici funzioni co- 
me quelle degli esempi visti non è 
molto efficiente. Si possono realiz- 
zare con cicli più corti, più semplici 
e più veloci, che occupano meno 
spazio e sono meno complicati. 
Tuttavia, quando il problema è più 
complesso, i programmi ricorsivi 
possono far risparmiare molto tem- 
po di programmazione e rendere il 
programma più facile da corregge- 
re. Uno degli argomenti in cui le 
routine ricorsive possono aiutare è 
la ricerca negli alberi di gioco. Già 
sapete che i computer possono es- 
sere programmati per giocare gio- 
chi di scacchiera, costruendo un 
“albero” delle posizioni sulla scac- 
chiera usando le mosse permesse. 

Quindi, ricercando nell’albero le 
posizioni migliori, il programma 


può fare delle previsioni, e muove- 
re nel modo migliore, secondo 
queste previsioni. 

Uno dei problemi che sorgono 
con gli alberi di gioco è che sono 
difficili da costruire usando i vetto- 
ri e le matrici disponibili nei lin- 
guaggi di programmazione più co- 
muni come il Basic. Ogni nodo del- 
l’albero deve contenere informa- 
zioni sulla sua profondità dalla ra- 
dice, se è un nodo di max o di min, 
tutte le informazioni che descrivo- 
no la posizione attuale di tastiera, 
e il suo valore calcolato combinan- 
do i valori di tutti i suoi successori. 

Inoltre, occorre stabilire un col- 
legamento tra ogni nodo e il suo 
predecessore, e fra ogni nodo e i 
suoi successori. Ciò è particolar- 
mente complicato perché non è 
sempre possibile sapere quanti suc- 
cessori ha un nodo. Occorre scrive- 
re programmi che accedano e mo- 
difichino questa struttura di dati ad 
albero mantenendo tutte le connes- 
sioni e separando i dati di un nodo 
da quelli di un altro. 

Le subroutine ricorsive possono 
eliminare la necessità di considera- 
re alcuni di questi problemi. Usan- 
do una subroutine ricorsiva, non è 
necessario costruire e mantenere 
esplicitamente una struttura di dati 
ad albero. Può essere difficile cre- 
derlo, ma è possibile trarre profitto 
dal modo in cui le subroutine ricor- 
sive si comportano, per costruire 
un albero ed eseguire una ricerca 
nello stesso tempo. Si può fare co- 
me segue. Supponiamo che la su- 
broutine stessa sia un nodo nell’al- 
bero di gioco. In questo caso, un 
nodo dell’albero, sarà più che una 
semplice collezione di dati. Sarà 
una procedura. Il nodo potrà quin- 


di generare posizioni successive di 
scacchiera e chiamare se stesso ri- 
corsivamente. Il collegamento tra 
un nodo e i suoi predecessori e suc- 
cessori sarà mantenuto dal compu- 
ter automaticamente sotto forma di 
chiamate alla subroutine e punti di 
ritorno. Tutto quello che serve è 
una attenta costruzione della su- 
broutine in modo che possa all’oc- 
correnza trattare situazioni diffe- 
renti. Il seguente scheletro di pro- 
gramma è una descrizione di come 
dovrebbe essere fatta una tale su- 
broutine. Non si tratta di un pro- 
gramma completo, perché viene 
usato il linguaggio comune per 
spiegare cosa succede nei vari pun- 
tl. 

I dettagli dipenderanno dal tipo 
di gioco che si intende programma- 
re. Tuttavia la struttura generale 
sarà la stessa per tutti i giochi che 
usano la ricerca ad albero. Vedi fi- 
gura 7. 


Tuttiigiochi che 
richiedono la ricerca ad 
albero possono essere 
programmati in modo 
ricorsivo. 


La variabile D è l’indice di ricor- 
sione e rappresenta il livello attua- 
le dell’albero. B(D) è la posizione 
di scacchiera da analizzare al livel- 
lo D. V(D) contiene i valori dei 
nodi, max o min secondo il tipo di 
nodo. Il tipo di nodo è contenuto 
nella variabile M che è posta a 1 
per un nodo max e a 0 per un nodo 


min. Scrivendo M = 1-M, vengo- 
no usati alternativamente i due va- 
lori. I(D) viene usato per contare il 
numero di successori di ogni nodo. 
Deve essere dimensionato da D 
per registrare quale successore è da 
esaminare ad ogni livello. 

La linea 1 è la condizione di 
stop. Se D = 1 è stato raggiunto il 
fondo dell’albero ed è il momento 
di chiamare la funzione euristica 
sulla posizione di scacchiera B(1). 

Questa funzione analizza la posi- 
zione di scacchiera e ritorna un va- 
lore in V(1) che è una misura della 
sua bontà. Quanto più alto è il nu- 
mero, migliore è la posizione. La 
linea 2 pone V(D) a un numero 
molto alto o molto piccolo, secon- 
do che il nodo sia min o max. La 
ragione di ciò sta nel fatto che più 
avanti si farà un confronto per ave- 
re il più grande (o il più piccolo) 
valore di tutti i successori di un no- 
do. Questa linea inizializza il valo- 
te; 
La linea 3 comincia il ciclo che 
esaminerà tutti i successori del no- 
do, uno alla volta, e chiamerà la 
subroutine ricorsiva per ognuno. Si 
noti che è dimensionato da D così 
che i successori di nodi e a livelli 
differenti nell’albero non vengono 
mescolati. La linea 4 è dove viene 
effettivamente generato il prossimo 
successore. Poiché l’indice di ricor- 
sione va verso l’1, il prossimo suc- 
cessore è in D-1. Se il gioco è 
complesso, ci possono essere molte 
istruzioni in questo punto e, per 
contenere tutte le informazioni, 
può essere necessaria più di una 
variabile. 

Le prossime tre linee predispon- 
gono l’ambiente, chiamano la su- 
broutine ricorsivamente e ripristi- 


10 DIM F(100) 


20 F{1)=1 

30 F(2)=1 

40 INFUT X 
SO GOSUE 100 
60 PRINT FM 
70 STOP 


IF Xc=2 THEN RETURN 
st 

UE 100 

+1 

C =F (X-1)+F (XxX 
150 RETURN 


Figura 6. 


nano l’ambiente nella sua forma 
originale. Queste linee sono simili 
a quelle viste negli esami preceden- 
ti. D è il livello corrente e M com- 
muta da max a min e viceversa. 
Nella linea 8 viene aggiornato il 
valore del nodo corrente. È posto 
al max (0 min) del suo presente va- 
lore e quello del successore che è 
stato appena analizzato. Quando il 
ciclo è finito, V(D) contiene il max 
(o min) di tutti i successori del no- 
do corrente e sarà pronto per esse- 
re usato dai suoi predecessori. Le 
linee 9 e 10 completano il ciclo e 
risalgono di un livello nell’albero. 
La caratteristica interessante di 
questo programma è che, ad ogni 
momento dell’esecuzione, esiste 
solo un “cammino” dalla radice. Il 
programma crea l’albero mentre 
esegue la ricerca, percorrendo i 
suoi rami in su e giù, con chiamate 
e ritorni alle subroutine. Non vi è 
una esplicita struttura di dati ad al- 
bero che deve essere mantenuta 
dal programmatore. Tutte le infor- 
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Programmazione ricorsiva in Basic 


1. IF D=1 THEN poni V(1) 
euristica su B(1) 
2. Foni VD) 


4. Sostituisci 
re di ED) 


B(D-1) 


valore della funzione 


e RETURN 

ad un numero molto grande se M=0 
o ad un numero molto piccolo se M=i 

3. FOR I(D)=1 TO il numero dei 


(MIN) 
(MAX) 
successori di BD) 


con il prossimo successc- 


S. D=D-1 e M=1-M (nuovo ambiente) 
6. Chiama la subroutine ricorsivamente 
7. D=D+1 e M=1-M ‘(vecchio ambiente) 
8. Foni V(D) al MAX c@ al MIN di V(D) secondo M 
9 NEXT CDI 
10. RETURN 
Figura 8. 


mazioni necessarie sono contenute 
nella subroutine. 

Il programma descritto è una 
traccia della sola parte ricorsiva del 
programma di gioco totale. Ci sono 
altre parti principali oltre all’out- 
put grafico, ecc. Si tratta di (1) la 


funzione euristica, (2) il generatore 
della prossima mossa, e (3) il su- 
pervisore. La funzione euristica 
può essere una subroutine chiama- 
ta come nella linea 1 dell'esempio 
precedente. Il generatore della 
prossima mossa può essere messo 


SUPERVISORE 


l. D=livello di 


“a BD) 
O (MIN) 
Foni 4 (D) 
FOR I(D)=1 TO il) 


di BED) 
7. D=D-1 
8. Chiama la 
9. D=D+1 
10, Foni VD) 
NEXT 1(D) 


era BD) 
vinto STOP 


a BD) 
persa STOP 


16. GOTO 4 


profondita” 
la posizione 


al MAX di 


la mossa dell’a 


scelto 
iniziale della 


uguale ad un numero molto piccolo 
numero dei 
6. Sostituisci B(D-1) 


successori di ED) 


can il prossimo successore 


subroutine ricorsiva 


MD) e VID-1) 


Fai la mossa con il piu” alto V(D) e cambia la 


versario e cambia la 


Figura 7. 
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direttamente dentro la subroutine 
o programmato come una subrouti- 
ne a sé stante. Questi programmi 
sono specifici al particolare gioco. 
Il supervisore, invece, può essere 
tracciato in generale. 

Il supervisore pone la scacchiera 
nella sua posizione iniziale (o in 
quella attuale se il gioco è in svol- 
gimento) e chiama la subroutine ri- 
corsiva una volta per ogni possibile 
mossa. La mossa che risulta avere 
il massimo valore è quella che sarà 
giocata dal calcolatore. Il supervi- 
sore è, essenzialmente, il nodo più 
alto dell’albero e, quindi, è un no- 
do max. Esso deve, quindi, chia- 
mare la subroutine ricorsiva con un 
min per farla partire. Fino a che 
non vi è una situazione di vincita o 
perdita, il programma continua a 
giocare. 

Questo programma è importante 
come la subroutine ricorsiva, e le 
due routine possono essere combi- 
nate molto semplicemente. Non di- 
menticate di salvare il nodo con il 
valore più alto nella linea 10 altri- 
menti verrà perso. Ciò non è ne- 
cessario nella subroutine. 

Anche se gli esempi precedenti 
non sono completi e devono essere 
dettagliati, mettono in luce l’enor- 
me potenza dei programmi ricorsi- 
vi. Man mano che i linguaggi evo- 
luti tipo Pascal diventano più po- 
polari, i programmi ricorsivi saran- 
no più semplici da scrivere e quindi 
verranno applicati in aree sempre 
diverse. 

(| 


Osborne 1 
lo trovi, subito, 
alla Microtech. 


Osborne 1 è un business computer veramente 
eccezionale. Perchè è nato da Adam Osborne, 
che più di chiunque ha scritto di computer. Perchè 


lo porti dove vuoi, piccolo, 
leggero, potente. 

Ma soprattutto perchè 
puoi comunicare con gli 
altri computer; puoi 
utilizzarlo come sistema 
Word processing, grazie 
a WORDSTAR? compreso 
nel prezzo; 0 tr. asformarlo 
in formidabile sistema di 
calcolo, per memorizzare 


MicrOtech 


Microtech Sistemi, Via Bronzetti 20, Milano - Telefono 733.609/740.654 


Distributore per l'Italia 
Ual 


modelli, fare previsioni, pianificare budget, grazie a 
SUPERCALC, compreso nel prezzo. Oppure, 
tramite MAILMERGE, stampare, registrare liste 


di nominativi e indirizzi. 
Non è tutto: Osborne 1 
è corredato di potenti 
linguaggi di 
programmazione: 
M BASIC e C BASIC e 
dispone di accessori per 
tutte le applicazioni. 
Non è eccezionale? 
Osborne 1 lo trovi in 
Microtech. Da subito. 


ONVIIN SOHIA 


ELETTRONICA INTEGRATA 
DIGITALE 


di Erbert Taub e Donald Schilling 


Non esiste, in lingua italiana, un libro di testo così. 
Chiaro, completo, moderno, ma anche rigoroso e 
didattico. Sono alcuni tra gli aggettivi che 
costituiscono la prerogativa di questo volume. 

Per capire l’elettronica digitale bisogna avere delle 
solide conoscenze sui dispositivi a 
semiconduttore, soprattutto usati in circuiti di 
commutazione. E malgrado quest’analisi richieda 
una notevole complessità matematica, 
introducendo alcune semplificazioni, è possibile 
mantenere la trattazione ugualmente rigorosa e 
ottenere approssimazioni pienamente ‘accettabili. 
Come trascurare poi gli amplificatori operazionali, 
che, se a rigore non rientrerebbero nella materia, 
però trovano larga applicazione in sistemi 
completamente digitali. E poi i circuiti integrati, 
finalmente spiegati e analizzati in tutti i loro 
aspetti. Dalla vecchia logica resistore-transistor 
(RTL), funzionale nella sua semplicità 
all'esemplificazione degli aspetti fondamentali, a 
quella a simmetria complementare (CMOS). 
Questo, però, dopo aver studiato un capitolo che, 
pur non richiedendo alcuna conoscenza 
preliminare, va a fondo dei concetti di variabili 
logiche, di algebra di Boole, di analisi di circuiti 
logici. E ancora. Via via nei vari capitoli: i flip-flop, 
i registri, e i contatori (sia sincroni che asincroni), 
i circuiti logici atti ad eseguire operazioni 
matematiche, le memorie a semiconduttore (RAM, 
ROM, EPROM ), l'interfacciamento tra segnali 
analogici e digitali (multiplexer, circuiti sample 
and hold, ..., convertitori d/a e a/d),i 
temporizzatori. Tutto con oltre 400 problemi, dai 
più semplici ai più sofisticati, in cui vengono 
presentati i circuiti tipici che si trovano nella 
pratica. 

Un testo quindi non solo per gli specialisti e per 
gli Studenti universitari, ma che si adatta 
magnificamente agli Istituti Tecnici. 

Un testo che, speriamo per gli studenti, la scuola 
non debba scoprire tra alcuni anni. 


SOMMARIO 
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ci Fondamentali; Amplificatori Operazionali e 
iti Logici; Logica Resistore-Transistore e Logica 
€ ata; Logica Diodo-Transistore; Logica 
Transistore-Transistore, Logica ad Accoppiamento di Emettitore; 
Porte MOS; | Flip-Flop; Registri e Contatori; Operazioni Aritmetiche; 
Memorie a Semiconduttore; Interruttori Analogici; Conversione 
Analogico-Digitale; Circuiti di Temporizzazione; Linee di 
Trasmissione; Problemi; Alcuni Esempi di Specifiche. 
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Lexikon 


Da dove vengono 
i termini dell’informatica 


ti nel settore dell’informatica e dell’indu- 

stria elettronica in generale ha imposto 
alle diverse lingue (francese, tedesco, italiano) 
il modello della terminologia anglo-americana. 
La gran parte dei termini specializzati sono 
dunque “prestati” all’italiano, e talvolta vengo- 
no usati nella grafia originale, mentre altre vol- 
te vengono “italianizzati”. 

L'eccezione di maggior rilievo è proprio la 
parola informatica, apparsa nel lessico italiano 
nel 1968 o poco prima. La sua diffusione è do- 
vuta al largo uso che ne hanno fatto anche i 
politici da quando, nel 1968 appunto, un grup- 
po di esperti nominato dal Ministero del bilan- 
cio e della programmazione l’accolse nella re- 
dazione del cosiddetto Progetto 80, il rapporto 
preliminare al programma economico nazionale 
1971-75. 

Ma informatica non è una parola di origine 
italiana. Il termine deriva invece dal francese 
informatique sul quale si è modellato anche l’in- 
glese informatics (oggi usato raramente) e il te- 
desco Informatik. 

Informatique ha una nascita ben documenta- 
ta: il termine è stato proposto nei primi anni ’60 
da Philippe Dreyfus, direttore generale del 
Centre d’analyse et programmation (CAP) in 
Francia, in una seduta dell’ Association frangai- 
se de calcul et traitement de l’information. 
Sembra che sia stato costruito partendo da in- 
formation e arrivando a informatique sull’esem- 
pio di mathématique, physique, ecc. 

Informatica, dunque, derivando dal francese, 
è l'eccezione che conferma la regola. La quale 
afferma che la maggior parte dei termini del 
lessico dell’informatica derivano dall’anglo- 
americano. Parlavamo in questo senso di 
“prestiti linguistici”. Tali prestiti possono classi- 
ficarsi in due categorie: quelli che esprimono 
concetti per cui già esiste un termine nazionale, 
e quelli che indicano concetti per cui non esiste 
un termine nazionale corrispondente. 

Nel primo gruppo troviamo parole come 
computer; in italiano viene utilizzato assieme a 
calcolatore e elaboratore. Tutti e tre i termini 
hanno oggi ragione di esistere, assieme ad altri 


Li posizione di predominio degli Stati Uni- 


come calcolatrice, per alcune sfumature di si- 
gnificato che le diversificano. 

Nel secondo gruppo troviamo hardware e 
software, parole che esprimono concetti non al- 
trimenti esprimibili in italiano, e quindi non 
traducibili. 

Per curiosità, possiamo ricordare che in 
Francia hanno tentato di farlo, proponendo di 
volta in volta matériel e programmerie; meca- 
noide e programmoide; mécanectronique e intel- 
letronique. 

In italiano, per fortuna, ogni tentativo di tra- 
durre in una sola parola rispettivamente il con- 
cetto di hardware e software è caduto nel nulla 
(alcuni tentativi: strumentazione e apparecchia- 
ture per hardware; programmeria e program- 
matica per software). E ora la stessa sorte toc- 
cherà a firmware, il termine che si pone tra 
hardware e software e che vuole indicare 
“software contenuto nell’hardware” (come le 
informazioni delle ROM). 

Nei prossimi numeri di questa rubrica tornere- 
mo su questi argomenti, e parleremo in particola- 
re del modo corretto di usare i termini stranieri 
dell’informatica. n 


L’origine dei file 


La parola angloamericana file, che si pronuncia 
“fail” ha in origine molti significati. Tra gli altri: 
lima, persona astuta, fila, schedario, archivio. Scri- 
ve Carlo Rossetti nel libro / tranelli dell’inglese 
(Mondadori): “Come verbo vale alle volte classifi- 
care, mettere agli atti, archiviare [...] Come sostanti- 
vo vale anche raccolta di documenti, di giornali [...] 
Il motivo è che si chiamavano in Inghilterra files 
quelle che i nostri vecchi archivisti chiamavano filze 
[cioè fasci di documenti uniti assieme per essere 
collocati in archivio] e, cessato l’uso di esse, il ver- 
bo to file restò come sinonimo di ordinare, classifi- 
care, registrare carte e documenti in un pubblico 
ufficio...” 

Oggi il termine file è entrato nel gergo dell’infor- 
matica col significato di collezione ordinata di re- 
cord. In italiano si potrebbe tradurre con archivio 
(mai con flusso come recentemente ci è più volte 
capitato di vedere), ma ha avuto più fortuna il ter- 
° originale: il file, i file (al plurale, senza s fina- 
e). 


4l 


SOFT 


PROGRAMMI PER IL SINCLAIR ZX81 


Tutti i programmi sottoelencati sono registrati su cassetta. 
Se non è specificata la dicitura “1K", necessitano dell'espansione di memoria. 
Sono marcate con asterisco le cassette che possono essere usate anche sullo ZX80 con ROM BK. 


CODICE NOME E DESCRIZIONE VENDRA 
TF/0100-01 —* SEI GIOCHI IN INGLESE (1K) 12.000 
ORBIT - SNIPER - METEORS - LIFE 
WOLF PACK - GOLF 
TF/0100-02 GIOCHI EDUCATIVI IN INGLESE 13.000 
MATEMATICA - OPERAZIONI FRAZIONI 
DIVERSI GRADI DI DIFFICOLTA' 
TF/0100-03 “ PROGRAMMI GESTIONALI IN INGLESE 13.000 
AGENDA TELEFONICA - FINANZA PERSONALE - BLOCK NOTES 
TF/0100-04 —* SEI GIOCHI IN INGLESE 19000 
LUNAR LANDING - TWENTY ONE - COMBAT 
SUB STRIKE - COBE BREAKER - MAYDAY 
TF/0100-05 * GIOCHI EDUCATIVI IN INGLESE (1K) 13.000 
OPERAZIONI ELEMENTARI PER BAMBINI 
CON QUATTRO GRADI DI DIFFICOLTA' 
TF/0100-10 SCACCHI IN INGLESE 26.000 
SI GIOCA CONTRO IL CALCOLATORE 
CON DIVERSI GRADI DI DIFFICOLTA" 
TF/0100-11 pircaro IN INGLESE 26.000 
STRUMENTO DI CALCOLI 
A RISOLVERE DIVERSI PROBLEMI IRORATTO 
TF/0100-12 —FANTASY GAMES IN INGLESE 000, 
GIOCHI DI FANTASIA PER TUTTI | GUSTI i 
TF/0101-02—* GIOCO SCACCHI 20000 
QUATTRO LIVELLI DIFFICOLTA' - LIBERTA" 
DI DISPOSIZIONE PEZZI - SOLUZIONE PROBLEMI 
TF/0101-04 ——VISIZXCALC 29,000) 
POTENTE STRUMENTO DI CALCOLO ADATTO 
A RISOLVERE DIVERSI PROBLEMI 
TF/0101-06 UNDICI GIOCHI (1K) 17.000 
DIVERTIMENTO È BUONI ESEMPI DI PROGRAMMAZIONE 
IN BASIC E LINGUAGGIO MACCHINA 
TF/0101-08 LABIRINTO TRIDIMENSIONALE 12.000, 
DIVERSI LIVELLI DI DIFFICOLTA" 
PROGRAMMAZIONE DI ALTO LIVELLO CON GRAFICA OTTIMA 
TF/0101-10—TRE GIOCHI SPECIAL (1K) 17000 
USATE IL SINCLAIR COME UN ORGANO 
VEDETE | BATTERI CHE SI RIPRODUCONO 
TF/0101-12 —* GESTIONE PICCOLI ARCHIVI n7009 
‘GESTIONE COMPLETA DI PICCOLI ARCHIVI 7 
TF/0101-14 "SIMULATORE CUBO MAGICO TRIDIMENSIONALE 17.000 
PER GLI APPASSIONATI DEL CUBO ig Ù 
MENO FATICOSO DEL CUBO REALE 
TF/0101-16 —* RISOLUTORE CUBO MAGICO 
17.000 
PER RISOLVERE IL CUBO IN POCO PIU' DI UN MINUTO 
TF/0101-18. ‘DEFENDER ii) 
UN PO' DI BRIVIDO CON IL SINCLAIR 
VELOCITA’ ECCEZIONALE 
TF/0101-20 STAR-TREK 
17.1 
MISSIONE GALATTICA CON IMPREVISTI si 
ED EMOZIONI. QUATTRO LIVELLI DIFFICOLTA" 
TF/0101-22 CENTIPEDE 
17.000 
EROVATE! A DISTRUGGERE IL BRUCO CHE SI 
E SE LO COLPITE - BRAVO CHI CI RIESCE! 
TF/0101-24 ASTEROIDI 17.000 
UN BUON PASSATEMPO PER VOI E PER | VOSTRI AMICI 
TF/0101-26 —TIRANNOSAURO 
PER CHI SI ANN oO 


IDIA co 2 
DINAMICA È VENA COL LABIRINTO - GRAFICA 


TF/0101-28 ZUC 
GIOCO AFFASCINANTE 17000 


PI 
NON USATELO TROPHO, EP UNO O DUE GIOCATORI 


TF/0102-02 * SETTE GIOCHI 


22.000 
BIORITMO - 21 - CONTO ALLA ROVESCIA - HAMMURABI - 
ROULETTE RUSSA - FUGA DAL CASTELLI - METEORITI 
romeo GammRaeÌ iù 
-| ID - ORBITA - GOLF - BOMBARDAI Te 
LANCIA MINE - SOS SOS - CAMMELLO Si 
TF/0102-08 —‘ SETTE GIOCHI 22.000) 


ALLUNAGGIO - SLALOM - CACCIA SOTTOMARINA - ALIENI 
TIRO RAPIDO - ATTACCO MARZIANO - LA GRANDE RAPINA 


REBIT 


COMPUTER 


A DIVISION OF G.B.C. 


BANK 


* SETTE GIOCHI 22.000 
SUPER AVVENTURA - SOLITARIO - REVERSE - LABIRINTO 
ABBATTI IL MURO - GOLF - GIU' DENTRO 


* SETTE GIOCHI 22.000 
BATTAGLIA NAVALE - BUCHI NERI - ODISSEA - MEMORY 
ANAGRAMMI - ARMA GIOVIANA - TRENI IN CORSA 


* GESTIONE FINANZIARIA PERSONALE 22.000 
POSSIBILITA’ DI MEMORIZZARE | CONTI 
‘SU NASTRO 


* AGENDE: 22.000 
RUBRICA INDIRIZZI ARRICCHITA - ARCHIVIAZIONE NOTIZIE 
CON POSSIBILITA' RICERCA 


* MATEMATICA E FISICA 22.000 
FRAZIONI - STATISTICA - TEMPERATURE 
PROBLEMI - CONVERSIONI DI BASE 


* MATEMATICA, FISICA E VOCABOLARIO 22.000 
SOMMARE DIVERTENDOSI - LA BILANCIA - CALCOLO DEI VOLUMI 
MOLTIPLICAZIONI - VOCABOLI 


* TOOL-KIT 22.000 
STRUMENTO INDISPENSABILE AD OGNI PROGRAMMATORE 
CHE VOGLIA AFFINARE LE SUE ABILITA" 


TF/0102-08 


TF/0102-10 


TF/0102-12 


TF/0102-14 


TF/0102-16 


TF/0102-18 


TF/0102-20 


PROGRAMMI PER IL TRS-80 MOD. Il 


programmi sottoelencati sono forniti su disco 8". 


PI 
CODICE NOME E DESCR DNSRA 


IONE VENDITA 


INVENTORY CONTROL 345.000 
3000 ARTICOLI DI MAGAZZINO - 200 FORNITORI 
‘S. SCORTA - DIVISIONE IN CLASSI - STATISTICHE 


MAILING LIST 140.000 
3000 NOMI E INDIRIZZI IN FORMATO COMPATTO 
2000 IN FORMATO ESPANSO - SELEZIONI E STAMPE 


MAILING LIST Il (RICHIEDE 2 DISK) 210.000 
COME IL MAILING LIST MA SE USATO CON LO 
SCRIPSIT PERMETTE LA STAMPA DI CIRCOLARI SELEZIONATE 


VERSA FILE Il 125.000 
CREATEVI IL VOSTRO SISTEMA DI CLASSIFICAZIONE 
AUTOMATICA DELLE INFORMAZIONI - FACILE DA USARE 


VISICALO Il 420.000 
SUPERPROGRAMMA CHE GESTISCE COMPLESSE PROIEZIONI 
E GRANDI QUANTITA' DI DATI PER SIMULAZIONI 


PROFILE Il 340.000 
GESTIONE DI MOLTI DATI CON MOLTI CRITERI DI 
SELEZIONE - COLLEGAMENTO ALLO SCRIPSIT - STAMPE 


SCRIPSIT Il 620.000 
UNO DEI SISTEMI DI GESTIONE DEI DATI FRA 
| PIU' POTENTI SUL MERCATO 


STATISTICAL ANALISYS 180.000 
STATISTICHE - VARIANZE - COVARIANZE - ISTOGRAMMI - 
CORRELAZIONI - FREQUENZE - ECC. 


FORTRAN 520.000 
STANDARD ANSI-66 - EDITORE - COMPILATORE - 
EDITORE DI LINEA - BIBLIOTECA SOTTOPROGRAMMI 


EDITOR/ASSEMBLER 350.000 
EDITORE - MACROASSEMBLER - EDITORE DI LINEA 
BIBLIOTECA FORTRAN - TABELLA CORRISPONDENZE 


TF/4703-00 cosoL 520.000 
VERSIONE ESPANSA ANSI-74 - ISAM MULTICHIAVE 
ACCEPT/DISPLAY - DEBUG - MODULO RUN-TIME 


TF/4502-00 


TF/4506-00 


TF/4507-00 


TF/4512-00 


TF/4511-00 


TF/4510-00 


TF/4530-00 


TF/4540-00 


TF/4701-00 


TF/4702-00 


TF/4704-00 COBOL RUN-TIME 600.000 
PER L'ESECUZIONE DI PROGRAMMI SCRITTI 
E COMPILATI COL COBOL COMPILER 
‘TF/4705-00 BASIC COMPILER 430.000 
ISAM MONOCHIAVE - 14 CIFRE DI CALCOLO 
MODULO RUN-TIME - NON COMPATIBILE COL BASIC INTERPRETE 
TF/4706-00 —BASIC RUN-TIME so 
PER L'ESECUZIONE DI PROGRAMMI SCRITTI 
E COMPILATI COL BASIC COMPILER 
TF/4710-00 —TEXT EDITOR 150.000 
SI PUO' INTEGRARE IN OGNI LINGUAGGIO DEL MOD. 2 
RICERCHE E SOSTITUZIONI GLOBALI PIU' ALTRO. 
TF/4714-00—REFORMATTER (RICHIEDE 2 DISCHI) 450.000 


SCRITTURA - LETTURA - TRASFERIMENTO DI ARCHIVI 
TRA DISCHI TASDOS E DISCHI IMB 3741/3742 


PROGRAMMI PER IL TRS-80 MOD. Ill VERSIONE DISCO 


La minima configurazione per l'uso dei programmi presentati è indice 


fianco del nome, 


Tutti i programmi sono in inglese 


CODICE 


TF/1508-00 


TF/1551-00 


TF/1553-00 


TF/1558-00 


TF/1559-00 


TF/1562-00 


TF/1563-00 


TF/1565-00 


TF/1567-00 


TF/1569-00 


TF/1603-00 


TF/2010-00 


TF/1604-00 


TF/2201-00 


TF/2202-00 


TF/2204-00 


PREZZO 
VENDITA 


36.000 


NOME E DESCRIZIONE 


IN-MEMORY INFORMATION (16K) 
CLASSIFICAZIONE DELLE INFORMAZIONI 
SALVATAGGIO E RICERCA SU DISCO 


DISK MAILING LIST 
PIU' POTENTE DELLA VERSIONE SU CASSETTA 


INVENTORY CONTROL (32K 2 DISCHI) 
FINO A 1000 ARTICOLI CON RAPPORTI SULLE 
VENDITE E LE ROTAZIONI DEL MAGAZZINO 


BUSINESS MAILING LIST (32K 2 DISCHI) 
FINO A 990 NOMI - CON 48K E 4 DISCHI 
2970 NOMI) 


MANUFACTURING INVENTORY CONTROL (32K 2 DISCHI) 
GESTIONE DELLE DISTINTE BASE - 20 PRODOTTI 
FINITI @ 1900 MATERIE PRIME PER DISCO 


PROFILE (32K 1 DISCO) 
GESTIONE DI ARCHIVI CON RICERCHE MULTIPLE 
ARCHIVI ACCESSIBILI DA PROGRAMMI UTENTE 


SCRIPSIT DISK (32K 1 DISCO) 
PROCEDURA DI TRATTAMENTO DELLA PAROLA 
STAMPE MULTIPLE - FACILE EDITING 


MICROFILES (32K 1 DISCO) 
VERSIONE SOFISTICATA DEL PROFILE 
VELOCISSIMO - COMANDI A SINGOLO TASTO 


VISICALC MOD. 3 (32K 1 DISCO) 
SUPERPROGRAMMA CHE PERMETTE DI LAVORARE 
CON PROIEZIONI E MODELLI DI SIMULAZIONE 


VISICALC AVANZATO MOD. 3 (32K 1 DISCO) 
UNISCE ALLA POTENZIALITÀ DEL VISICALC 
L'ENORME FLESSIBILITA' DEL MOD. 3 


PERSONAL FINANCE DISK (16K) 
FORNITO IN VERSIONE CASSETTA PUO' ESSERE 
ADATTATO AL DISCO (FINO A 32K 2 DISCHI) 


DISK BASIC COURSE (16K 1 DISCO) 
UN GRANDE CORSO SU 4 DISCHI CON TUTTE 
LE PIU' POTENTI ISTRUZIONI DEL BASIC MOD. 3 


VERSAFILE (32K 1 DISCO) 
SCRIVETE CIO' CHE VI VIENE IN MENTE E 
IL TRS-80 LO RICORDA - CHIEDETEGLIELO! 


FORTRAN (32K 2 DISCHI) 
COMPILATORE - EDITORE DI TESTI - 
EDITORE DI LINEA - LIBRERIA 


EDITOR/ASSEMBLER DISK (32K 2 DISCHI) 
ASSEMBLATORE - EDITORE DI TESTI 
EDITORE DI LINEA - TABELLA DELLE CORRISPONDENZE 


BASIC COMPILER (48K 2 DISCHI) 
TUTTA LA POTENZA DEL LINGUAGGIO MACCHINA 
DAL BASIC - INCOMPATIBILE CON IL BASIC INTERPRETE 


70.000 


170.000 


170.000 


135.000 


150.000 


185.000 


175.000 


300.000 


60.000 


50.000 


160.000 


160.000 


280.000 


PROGRAMMI PER IL TRS-80 MOD. Ill VERSIONE CASSETTA 


La minima configurazione per l'uso dei programmi presentati è indicata a fianco del nome 
Tutti i programmi sono in inglese 


CODICE 


TF/1502-00 


TF/1503-00 


TF/1505-00 


TF/1602-00 


TF/1603-01 


TF/1605-00 


TF/1701-00 


TF/1702-00 


TF/1703-00 


TF/1705-00 


TF/1706-00 


TF/1712-00 


PREZZO 
NOME E DESCRIZIONE VENDITA 
IN-MEMORY PROGRAM (16K) 32.000 
CLASSIFICAZIONE DELLE INFORMAZIONI 
SALVATAGGIO E RICERCA 
MAILING LIST (16K) 35.000 
GESTIONE INDIRIZZI CON STAMPA 
ETICHETTE - 80 NOMI PER VOLTA OGNI 16K 
SCRIPSIT (16K) 120.000 
PROGRAMMA COMPLETO DI TRATTAMENTO 
DEI TESTI - MOLTO POTENTE 
PERSONAL FINANCE (4K) 30.000 
GESTION ENTRATE E USCITE FAMILIARI 
GESTIONE BILANCIO MENSILE 
PERSONAL FINANCE DISK (16K) 35.000 
FORNITO IN VERSIONE CASSETTA PUO' ESSERE 
ADATTATO AL DISCO (FINO A 32K 2 DISCHI) 
ASTROLOGY (16K) 50.000 
PRODUZIONE DI OROSCOPI PERSONALI SE COLLEGATO 
AD UNA STAMPANTE PRODUCE IL QUADRO ASTRALE 
MATHEMATIC COURSE (4K) 37.000 
INSEGNA AI BAMBINI LE 4 OPERAZIONI 
ALGEBRA COURSE (4K) 30.000 
IMPARARE L'ALGEBRA È FACILE! - E NON È 
NECESSARIO ASPETTARE DI FREQUENTARE LE MEDIE! 
STATISTIC COURSE (16K) 50.000 
PER IMPARARE AGEVOLMENTE E FACILMENTE 
AD USARE LE TEORIE STATISTICHE - ANCHE PER GRANDI 
ADVANCED STATISTICS (16K) 80.000 
INTEGRA E COMPLETA IL CORSO DI STATISTICA 
CON QUALCOSA DI PIU' COMPLESSO 
1.0. BUILDING (16K) 50.000 
CALCOLO E MIGLIORAMENTO DEL PROPRIO 
QUOZIENTE D'INTELLIGENZA TRAMITE SEMPLICI TEST 
SHOW & SPELL (16K) 60.000 


FACILE CORSO DI GRAMMATICA INGLESE 
PER BAMBINI 


‘TF/2000-00 DEBUG (16K) 
PROGRAMMA DI CONTROLLO E DI ESECUZIONE 


PER PROGRAMMI IN LINGUAGGIO MACCHINA IN MEMORIA 
T-BUG (16K) 

CARICA UN PROGRAMMA IN LINGUAGGIO MACCHINA 

DA CASSETTA E NE PERMETTE IL DEBUG 


EDITOR-ASSEMBLER (16K) 


TF/2001-00 


TF/2002-00 


PERMETTE D'INTRODURRE UN PROGRAMMA IN LINGUAGGIO 


SIMBOLICO ZILOG E DI ASSEMBLARLO 


LEVEL 1 COURSE (4K) 
CORSO DI BASIC LIV. 1 


BASIC COURSE LEVEL 2 PT.1 (16K) 
CORSO DI BASIC ELEMENTARE - PRIMA PARTE 


BASIC COURSE LEVEL 2 PT. 2 (16K) 
CORSO DI BASIC ELEMENTARE - SECONDA PARTE 


TINY PASCAL TAPE (16K) 
COMPILATORE DI UN SUBSET DEL LINGUAGGIO 
PASCAL - POTENZIALITA' MAI VISTA! 


TF/2003-00 
TF/2005-00 
‘TF/2006-00 


TF/2009-00 


PROGRAMMI PER IL TRS-80 POCKET COMPUTER 


Tutti ì programmi sono forniti su cassetta e sono in inglese 


CODICE NOME E DESCRIZIONE 


TF/3511-00 CIVIL ENGINEERS 
PROGRAMMI DI INGEGNERIA - CALCOLO TELAI - 
‘SFORZI AI BULLONI - TRAVI INCASTRATE - ECC. 


AVIATION 
CALCOLO DEL PIANO DI VOLO - ANGOLO DI DERIVA 
CONVERSIONI TRA UNITA’ DI MISURA - ECC. 


MATH DRILL 
ESERCIZI PER GLI SCOLARI DELLE PRIME CLASSI 
POSSIBILITA' DI INTRODURRE NUOVI PROBLEMI 


GAMES ONE 
CANNIBALI E MISSIONARI - NIM - ATTERRAGGIO 
NELLO SPAZIO - CACCIA AL TESORO - ECC. 


BUSINESS MARKETING 
METODO DELLA MEDIA MOBILE PER IL CALCOLO E 
LA CORREZIONE AUTOMATICA DELLE PREVISIONI - ECC. 


BUSINESS FINANCE 
SETTE PROGRAMMI DIFFERENTI PER AIUTARE 
L'UOMO D'AFFARI - CALCOLI INTERESSI - GIORNI - ECC. 


PERSONAL FINANCE 
GESTIONE DEL BILANCIO FAMILIARE - GESTIONE 
C/C BANCARIO - INTERESSI - CONVERSIONI - ECC. 


TF/9513-00 


TF/3514-00 


TF/3515-00 


TF/3516-00 


TF/9517-00 


TF/3518-00 


PROGRAMMI PER IL TRS-80 COLOR COMPUTER 


40.000 


35.000 


38.000 


PREZZO 
VENDITA 


42.500 


42.500 


38.000 


‘38.000 


35.000 


Tutti i programmi sono distribuiti sotto forma di CARTRIDGE (memoria allo stato solido). 


Tutti i programmi sono in inglese. 
Tutti i programmi contrassegnati da asterisco richiedono l'uso di joystick. 


CODICE NOME E DESCRIZIONE 


TF/3019-00 —ROM DIAGNOSTICA 
CONTROLLO DELLA PERFETTA EFFICIENZA 
DEL VOSTRO CACOLATORE 


SCACCHI 
DA ALLENAMENTO, MA ANCHE DA COMBATTIMENTO! 


* QUASAR COMMANDER 
RADAR - PILOTA AUTOMATICO - CAMPI DI FORZA 
DIVERSI LIVELLI DIFFICOLTA" 


* PINBALL 
IL CLASSICO GIOCO DEL FLIPPER ORA ANCHE 
SUL TELEVISORE - DA 1 A 4 GIOCATORI 


CHECKERS 
GIOCO DELLA DAMA A DUE LIVELLI DI DIFFICOLTA' 
PREVEDE LE 3 MOSSE SUCCESSIVE 


* SUPER BUSTOUT 
GIOCO RAPIDO PER 1-4 GIOCATORI - SINGOLO 
O IN EQUIPE - SFONDATE LE LINEE COL PALLONE 


* DINO WARS (16K CONSIGLIATI) 
DUE GIOCATORI ALLE PRESE CON | DINOSAURI 
GRAFICA E SONORO REALISTICI 


* SKILING (16K CONSIGLIATI) 
DISCESA SCIISTICA CONTRO IL TEMPO 
VISTA CON GLI OCCHI DELLO SCIATORE 


* COLOR BACKGAMMON 
CLASSICO GIOCO DI SOCIETA’ - CONTRO 
IL GALCOLATORE O UN ALTRO AVVERSARIO 


* SPACE ASSAULT 
GLI EXTRATERRESTRI VI INVADONO LO SCHERMO 
E VI ATTACCANO! - BUONA FORTUNA! 


* ART GALLERY (16K CONSIGLIATI) 
CREATE LA VOSTRA GALLERIA DI QUADRI 
MODERNI - CONSIGLIATI | JOYSTICK 


* PROJECT NEBULA 
RESPINGETE GLI INVASORI DELLA VOSTRA 
GALASSIA - 4 LIVELLI - APPASSIONANTE! 


COLOR FILE 
PICCOLO SISTEMA DI GESTIONE PER TANTI 
ARCHIVI - SI USA COL REGISTRATORE A CASSETTE 


PERSONAL FINANCE 
PIANIFICATE IL BUDGET FAMILIARE 
COMPARATE ENTRATE E USCITE - PREVEDETE IL BILANCIO 


TF/3050-00 


TF/3051-00 


TF/3052-00 


TF/3055-00 


TF/3056-00 


TF/3057-00 


TF/3058-00 


TF/3059-00 


‘TF/3060-00 


TF/3061-00 


TF/3063-00 


TF/3103-00 


TF/3101-00 


PREZZO 
VENDITA 


39.000 


90.000 


60.000 


60.000 


60.000 


60.000 


70.000 


70.000 


60,000 


80.000 


60.000 


90.000 


TF/3151-00 * BINGO MATH 80.000 
Ù INSEGNA LE 4 OPERAZIONI E IL RICONOSCIMENTO 

DEI NUMERI - 1-2 GIOCATORI 

TF/3152-00 —TYPING TUTOR 60.000 
ESERCIZI BASATI SU LETTERE E PAROLE 
CONTROLLA VELOCITA' - RIFLESSI - ERRORI 

TF/3153-00 —LEARNING LAB 80.000 
COMBINAZIONE DI LOGICA E TESTI PER 
INSEGNARE IL COLOR BASIC - ORGANIZZAZIONE E STESURA 

TF/3154-00 HANDY MAN 60.000 


CALCOLO DELLE ESATTE NECESSITA’ DEL LAVORO 
DEL BRICOLAGE - MATERIALI - CONSIGLI 


PROGRAMMI PER IL BMC IF 800 MOD. 20 


Tutti i programmi sottoelencati sono forniti su disco 5”. lEZZO 
coDICE NOME E DESCRIZIONE VEDA 


VENDITA 


TF/2502-00 800.000 


FORTRAN-80 (RICHIEDE IL CP/M) 
EDITORE - COMPILATORE - EDITORE DI 


LINEA ANSI-66 


BASIC COMPILER (RICHIEDE IL CP/M) 
RENDE PIU' VELOCI | PROGRAMMI IN BASIC 
INTERPRETE 


MBASIC (RICHIEDE IL CP/M) 
BASIC INTERPRETE 


T-MAKER 2 (RICHIEDE IL CP/M) 
GESTIONE DI TESTI E ARCHIVI IN COMBINAZIONE 
CON TUTTI | TIPI DI CALCOLO NUMERICO 


SUPERCALC (RICHIEDE IL CP/M) 
IL VOSTRO FOGLIO ELETTRONICO A COLORI 
CALCOLI E PRVISIONI FINANZIARIE 


WORD STAR (RICHIEDE IL CP/M) 
L'ULTIMO E IL PIU' PERFEZIONATO PROGRAMMA 
PER GESTIONE DI TESTI - PUO' TUTTO! 


WORD INDEX (RICHIEDE IL CP/M) 
IN ABBINAMENTO AL WORD STAR PERMETTE 
LE STAMPE DI MANUALI - INDICE E RIASSUNTI AUTOMATICI 


COBOL-80 (RICHIEDE IL CP/M) 
COMPILATORE ANSI-74 - ACCEPT/DISPLAY - 
EDITORE 


DBMS (RICHIEDE IL CP/M) 
GESTIONE COMPLETA DI GRANDI ARCHIVI 
RICERCHE MULTICHIAVE - STAMPE DI TUTTI | TIPI 


ARCHIVI (IN OKI-BASIC) 
IL DISCO CONTIENE DIVERSI PROGRAMMI 
DI ARCHIVIO PIU' UN DEMO E UN PROGRAMMA TYPEWRITER 


TF/2504-00 650.000 


TF/2506-00 300.000 


TF/2508-00 700.000 


TF/2510-00 500.000 


TF/2512-00 800.000 


TF/2514-00 300.000 


TF/2516-00 1.300.000 


TF/2518-00 1.000.000 


TF/2520-00 400.000 


PROGRAMMI PER IL COMMODORE (LINEA 3000 - 4000 - 8000) 


Tutti i programmi sottoelencati sono forniti su disco 5". 
Per ogni programma verrà specificato il modello. 
copicE NOME E DESCRIZIONE VAEZZO: 
TF/1102-00 FATTURAZIONE MANUALE (3000) 
GESTIONE CLIENTI - EMISSIONE FATTURE 
E TRATTE - SENZA CODIFICA MAGAZZINO 


GESTIONE CONDOMINI! (3000) 
GESTIONE DI PIU' SCALE - EMISSIONE AUTOMATICA 
LETTERE - CIRCOLARI - SOLLECITI 


GESTIONE CONDOMINI! (4000) 
GESTIONE DI PIU' SCALE - EMISSIONE AUTOMATICA 
LETTERE - CIRCOLARI - SOLLECITI 


GESTIONE COMDOMINI! (8000) 
GESTIONE DI PIU' SCALE - EMISSIONE AUTOMATICA 
LETTERE - CIRCOLARI - SOLLECITI 


WORD PROCESSOR (8000) 
PROCEDURA COMPLETA DI TRATTAMENTO DEI TESTI 
PERMETTE CIRCOLARI SELEZIONATE 


ASSEMBLER (3000) 
EDITORE - ASSEMBLATORE SIMBOLICO 6502 


PASCAL (3000) 
SUBSET UCSD PASCAL - COMPILATORE - EDITORE 


GESTIONE LABORATORI ANALISI MEDICHE (3000) 
GESTIONE COMPLETA DI UN LABORATORIO - STAMPA 
| DOCUMENTI PER GLI ENTI - STATISTICHE 


SESTIONE LABORATORI ANALISI MEDICHE (4000) 
SESTIONE COMPLETA DI UN LABORATORIO 
STAMPA | DOCUMENTI PER GLI ENTI - STATISTICHE 


SESTIONE LABORATORI ANALISI MEDICHE (8000) 
SESTIONE COMPLETA DI UN LABORATORIO 
STAMPA | DOCUMENTI PER GLI ENTI - STATISTICHE 


VISICALE (4000 + ROM AGGIUNTIVA FORNITA) 
SUPERPROGRAMMA PER GESTIONE DATI NUMERICI 
PROIEZIONI - SIMULAZIONI 


VISICALC (8000 + ROM AGGIUNTIVA FORNITA) 
SUPERPROGRAMMA PER GESTIONE DATI NUMERICI 
PROIEZIONI - SIMULAZIONI 


COM-PLUS (8000) 60.000 
UTILE ACCESSORIO PER SUPERARE LA BARRIERA 
DELL'INCOMPATIBILITA' TRA | DIVERSI SISTEMI 


WORD-CRAFT (8000 + CHIAVE D'ACCESSO) 
ALTRA VERSIONE DI WORD PROCESSOR CON CARATTERISTICHE 
ADERENTI AD ESIGENZE DIVERSE 


700.000 


TF/1104-00 800.000 


TF/1106-00 800.000 


TF/1108-00 800.000 


TF/1110-00 630.000 


TF/1112-00 115.000 


TF/1114-00 115.000 


TF/1116-00 900.000 


TF/1118-00 900.000 


TF/1120-00 900.000 


TF/1122-00 310.500 


TF/1124-00 310,500 


TF/1126-00 


TF/1128-00 632.500 


TF/1130-00 


120.000 
VIGIL (3000) 
LINGUAGGIO ORIENTATO ALLA PRODUZIONE DI GIOCHI 


‘SONORI E GRAFICI - 9 GIOCHI ESEMPIO FORNITI 


PROGRAMMI PER IL VIC-20 CBM 


Tutti i programmi sottoelenc: E n 
to, si intende che i programmi funzionano con la memoria in configurazione 


CODICE 


TF/9402-00 


TF/9404-00 


TF/9406-00 


TF/9408-00 


TF/9410-00 


TF/9412-00 


TF/9300-00 


jono registrati su cassetta. 


0) 
NOME E DESCRIZIONE EEZzO: 
THE ALIEN WITH JOYSTICK (6K) 80.000 
PROVATE A CALARVI NEI PANNI DELL'ALIENO! 
AMOK 60.000 
UN GIOCO DI COMBATTIMENTO E DI VIOLENZA 
THE ALIEN 60.000 
SIETE L'ALIENO E DOVETE SOPRAVVIVERE! 
3-D MAZE 36.000 
TROVATE L'USCITA DAL LABIRINTO TRIDIMENSIONALE! 
DIVERSI LIVELLI DI DIFFICOLTA" 
ALIEN BLITZ (JOYSTICK OPZIONALE) 60.000 
DISTRUGGETE GLI INVASORI DEL CIELO! 
VICAT 60.000 
GESTIONE DI UN ARCHIVIO SEQUENZIALE SU CASSETTA 
CASSETTA PROGRAMMI DIMOSTRATIVI 15.700 


DIMOSTRA LA POTENZA DEL VIC 


PROGRAMMI PER IL VIC-20 CBM 


Tutti i programmi sottoelencati sono registrati su cartridge. 
Se non specificato, si intende che i programmi funzionino con la memoria in configurazione 


base. 
PREZZO 
copICE NOME E DESCRIZIONE VENDITA 
TF/9300-04 INVASORI SPAZIALI 37.000 
GRANDE REALISMO - ALTA VELOCITA’ 
NON VI FATE PRENDERE DAL PANICO! 

TF/9300-08 —GARA AUTOMOBILISTICA 37.000 
PROVATE L'EBREZZA DELLA VELOCITA" 
E DELLA COMPETIZIONE - 1 o PIU' GIOCATORI 

TF/9300-08—ATTERRAGGIO SU GIOVE ST000 
ESSERE AL COMANDO DI UNA ASTRONAVE NON È SEMPLICE 
MA QUESTO LO IMPARERETE A VOSTRE SPESE 

TF/9300-10.—GIOCO DEL POKER 37.000 
ATTENZIONE! - POTRESTE RESTARE POVERI! 
QUI NON SI TRATTA DI FORTUNA 

TF/9300-12 IL FANTASMA DI MEZZANOTTE ‘27000 
FUGGITE VIA DALLA CASA INFESTATA DAGLI SPIRITI 
SE VE NE RIMANE IL TEMPO 

TF/9300-14 BILANCIO FAMILIARE 37.000 
PIANIFICATE LE VOSTRE SPESE IN FUNZIONE DELLE ENTRATE 
GESTITE IL VOSTRO C/C BANCARIO 

TF/9300-16 —APPLICAZIONI MATEMATICHE 37.000 
UN VALIDO AIUTO TESO AL MIGLIORAMENTO 
DELLE PROPRIE CAPACITA' DI CALCOLO 

TF/9300-18 —SLOT MACHINE 7000: 
IL CELEBRE GIOCO D'AZZARDO 

TF/9300-20 AVENGER 37.000 
INTERESSANTE GIOCO DI SIMULAZIONE 

PROGRAMMI PER APPLE Il 

Tutti i programmi sono forniti su disco. 

Per ogni programma è indicata la lingua (italiano-inglese) in cui è stato scritto. 

Ove non indicato, si intende che i programmi girano sulla configurazione 16K 1 disco. 
PREZZI 
CODICE NOME E DESCRIZIONE VENDRA 
TF/5502-00 TOTOCALCIO SISTEMA A CORREZIONE D'ERRORI (It.) 80.000 
ELABORAZIONE DI SISTEMI RIDOTTI 

TF/5504-00 —TOTOCALCIO CHIAVE ALFA 6 SUPER (It.) 70.000 
SISTEMA RIDOTTO 10 TRIPLE CON FATTORE DI 
RIDUZIONE - INDICATO AL SISTEMISTA SERIO 

TF/5506-00 —1TOTOCALCIO SISTEMA DERIVATO A ROTAZIONE (It) 90.000 
ELABORAZIONE DI UN NUMERO STABILITO DI COLONNE 
IN BASE AD UN NUMERO CONCORDATO DI ELIMINAZIONI 

TF/5508-00 APPLE PANIC (Ing.) 72.000 
LABIRINTO DI SCALE - ALTA RISOLUZIONE 
GRAFICA AD ALTA VELOCITA 

TF/5510-00 ADVENTURES 1/2/3 (Ing.) 110.000 
ADVENTURELAND - PIRATE'S ADVENTURE - MISSION IMPOSSIBLE 

TF/5512-00 ADVENTURES 4/5/6 (Ing.) 110.000 
VODOO CASTLE - THE COUNT - STRANGE ODYSSEY 

TF/5514-00 ADVENTURES 7/8/9 (Ing.) 110.000 
MYSTERY - FUN HOUSE - PYRAMID OF DOOM 
GHOST TOWN 

TF/5516-00 FLIGHT SIMULATOR (Ing.) 60.000 
UN REALISTICO SIMULATORE DI VOLO CON VISTA 
DAL CIELO E DALL'AEREO - ANCHE FASI DI COMBATTIMENTO 

TF/5518-00 COMPUCUBE (Ing.) 72.000 
CREARE - RIMESCOLARE - RISOLVERE IL CUBO 
MAGICO - TRIDIMENSIONALE 

TF/5520-00 —DRAW POKER Ing.) 72.000 


IL MIGLIOR PROGRAMMA NEL SUO GENERE 


Nino Tonolli 


Proverbi per informatici 


6 ST: preparazione di un programma è 

cosa particolarmente attraente per- 

ché può essere vista non solo sotto 

l’aspetto scientifico, ma anche come esperienza 

estetica, come il comporre musica o scrivere 

poesia”. Questa frase di D.E. Knuth, uno dei 

maggiori informatici internazionali, illustra il 

nostro punto di vista nello scrivere questa ru- 
brica. 

Forse tra qualche decina d’anni molto sarà 
cambiato, ma oggi lo scrivere un programma è 
ancora una questione che riguarda non solo il 
razionale ma anche, ed in larga misura, il senso 
artistico. In altre parole, la disciplina della pro- 
grammazione non è ancora codificata in regola 
precise: non si tratta di scienza, ma di un'arte. 

Parlare del “buon modo di programmare” si- 
gnifica parlare di esperienza e di buon senso, 
significa dare consigli più che norme, criteri più 
che leggi. 4 

Nella prima apparizione di questa rubrica, 
vogliamo farvi conoscere i cosiddetti “proverbi 
di Arsac”. Jacques Arsac è professore di infor- 
matica alla facoltà di Scienze dell’Università di 
Parigi. Egli distribuisce agli studenti che intra- 
prendono lo studio dell’informatica, una picco- 
la dispensa ciclostilata che contiene diciotto 
consigli sul modo di programmare, da lui chia- 
mati «proverbi». 


I proverbi di Arsac 


0. Le cattive abitudini in programmazione st 
prendono molto presto. Non attendete di esser- 
ne schiavi per leggere le raccomandazioni che 
seguono. Esse vi eviteranno tempo perduto per 
fastidiose messe a punto e vi agevoleranno nel- 
lo studio e nel lavoro. 

Tuttavia, non prendete queste raccomanda- 
zioni per regole assolute. Se sono state chiama- 
te “proverbi”, è per rimarcare il loro carattere 
di “saggezza popolare”, buon senso comune, 
frutto dell’esperienza. Il buon programmatore 
sa passarvi sopra se ne vale la pena. Rispettate- 
le fino a che la vostra esperienza non vi avrà 
fatto capire i loro limiti. 


1. Enunciate il problema il più dettagliata- 
mente possibile. In informatica, non solo nello 
studio ma specialmente nella vita comune, non 
partirete mai da un enunciato perfettamente 
definito. Avrete a che fare con una situazione 
descritta in italiano corrente, talvolta con delle 
formule per farvi credere che il problema sia 
ben posto. Non lasciatevi ingannare. Comincia- 
te a definire il problema da risolvere. In parti- 
colare: 
© precisate i dati, il loro tipo, il loro campo di 
variazione, le loro proprietà; 
® precisate i risultati che vi si chiedono; 
® formulate le relazioni che legano i risultati ai 
dati. 

La scuola non vi ha certo abituato a questo 
lavoro: vi ha insegnato a risolvere problemi, 
non a porli. Quello che più si avvicina a questa 
attività, sono i vecchi problemi di aritmetica 
della scuola elementare: se una vasca viene 
riempita da un rubinetto... Non c’erano diffi- 
coltà di risoluzione: l’essenziale era porre il 
problema. Rimettetevi in questa ottica. 


2. Intanto riflettete, programmerete più tardi. 
Non precipitatevi a scrivere istruzioni. Questa è 
veramente l’ultima tappa del processo. Avrete 
ancora molto da fare: 
® studiate l’enunciato del problema; cercate di 
trovare tutte le ipotesi semplificatrici che vi fa- 
ciliteranno il lavoro; 
® a partire dalle proprietà dei dati fate apparire 
ciò che già sapete sui risultati. Inutile fare un 
programma se il risultato può essere calcolato 
direttamente. Questo lo si sa... 
® scegliete un metodo di soluzione (quello che 
in gergo si chiama algoritmo); 
® non vi preoccupate troppo per il momento 
del numero di operazioni che richiede: non sie- 
te voi che lo eseguirete, ma la macchina. Invece 
interessatevi alla precisione, se fate dei calcoli 
numerici; 
® scegliete una rappresentazione dei dati non a 
priori, ma in funzione del vostro algoritmo. La 
rappresentazione deve facilitare l'esecuzione 
dell’algoritmo. 


MULTICOMPUTERSYSTEMS 


PERSONAL COMPUTERS + 
MINIELABORATORI 
GESTIONALI 


Procedure-programmi dedicati 
per Agenzie Assicurazioni 
(RCA/ARA) 

Industrie abbigliamento - 
(Confezioni) 
Calzaturifici - Italia/estero - 
ciclo completo 
Pelletterie e accessori - ciclo 
completo 
Distinta base - Produzione e 
gestione magazzino 
Pelliccerie - Magazzino Pelli - 
Lavorazione clienti 
Condomini e affitti 
Laboratorio analisi mediche e 
cardiologia 
Agenzie immobiliari - Vendite e 
affitti 
Gestione bolle consegna - 
Fatturazione gestione 
corrispondenza (W.P.) 
Stampa indirizzi con 5 chiavi di 
selezione 


Le procedure offerte sono realizzate per 
sistemi COMMODORE serie 4000 e 
serie 8000 in configurazione standard 
(CPU, Video consolle, Dual Floppy, Prin- 
ter) 


DISPONIBILI OLTRE 100 PRO- 
GRAMMI GESTIONALI - VENDITA, 
NOLEGGIO, LEASING SOFTWARE 
STANDARD - PERSONALIZZAZIO- 
NE - SISTEMA OPERATIVO PET 
TRUCCATO 


50132 Firenze 
via Pier Capponi, 87 
tel. 055/571380 - 573901 


Proverbi per informatici 


È del tutto normale che passiate 
il 60% del vostro tempo a riflette- 
re, tempo durante il quale non scri- 
vete una sola istruzione. Quelli che 
sono stati abituati a scrivere subito, 
a provare il programma sulla mac- 
china, a riflettere soltanto allora 
sugli errori commessi, vi diranno 
che perdete il vostro tempo. Sono 
loro che lo perdono: vi accorgerete 
di arrivare allo scopo prima di lo- 
ro, con meno fatica. 


3. Documentate il vostro lavoro. 
Non fidatevi della vostra memoria. 
— Scrivete l’enunciato del proble- 
ma. Se vi accorgete che è incom- 
pleto, cambiatelo. Non fate alcuna 
modifica che non sia riportata su 
tutto l'insieme, dall’enunciato del 
problema alla sua soluzione. 


® descrivete con cura l’algoritmo 
che utilizzate; 


® precisate bene quali dati trattate, 
e in quale campo si devono trovare 
affinché il programma funzioni; 


® dite quali sono i risultati, in che 
ordine appaiono, cosa significano. 


Non attendete d’aver finito per 
redigere la documentazione. La 
vostra memoria non è infallibile. 
Vi perderete voi stessi nelle con- 
venzioni che sarete inevitabilmente 
condotti ad adottare. 

Non dite mai: non è definitivo, 
lo devo ancora cambiare, quindi 
non lo scrivo. Scrivetelo, poi lo 
correggerete se necessario. 


4. Conservate i vostri appunti. 
Non si scrive mai un programma di 
getto, non si stende un enunciato 


immediatamente senza errori, né 
un algoritmo senza dimenticare 
qualche cosa. In programmazione 
vi è “ritorno all’indietro” senza fi- 
ne. Mantenete i vostri appunti. Vi 
capiterà di tornare indietro quando 
sarete sulla buona strada. Vi capi- 
terà di modificare certi punti e di 
perdere cammin facendo delle par- 
ti corrette. 

Conservare i vostri appunti vi fa- 
ciliterà la ripresa. Allo stesso tem- 
po questi appunti costituiscono la 
storia della creazione del vostro 
programma. Vi saranno indispen- 
sabili nella fase finale di documen- 
tazione 


5. Fate uno studio discendente. 
Tracciate dapprima la soluzione a 
grandi linee, senza occuparvi dei 
dettagli. Assicuratevi che questa ri- 
solva il problema dato, eventual- 
mente dimostratelo. 

A questo livello non parlate del 
modo in cui i dati saranno effetti- 
vamente rappresentati nel pro- 
gramma. Non ha importanza, ed è 
ancora troppo presto. 

Quello che avete fatto non è an- 
cora un programma. Ci saranno 
delle espressioni in italiano corren- 
te che saranno dettagliate più tar- 
di. 

Quando avrete uno schema d’in- 
sieme corretto, affrontate le azioni 
che lo compongono. Per ciascuna, 
ricominciate lo stesso processo. È 
il metodo del “divide ed impera”: 
separate il vostro problema in sot- 
toproblemi. Supponete di saperli 
risolveré, e mostrate come essi per- 
mettono di risolvere il problema 
principale. Dopo di ciò, affrontate 
i sottoproblemi, e così di seguito. 


fino a che raggiungete dei problemi 
semplici che sapete programmare. 

Un esempio: vi si domanda di 
calcolare il valore di un polinomio. 
Non dite: bè, so come si fa: devo 
calcolare le potenze della variabile, 
moltiplicarle per i coefficienti e ac- 
cumulare il risultato; faccio un ci- 
clo... NO. 


Enunciate il problema. Quale 
polinomio? Di quale grado? Il gra- 
do può essere nullo? Quali sono i 
valori possibili della variabile? Il 
calcolo si deve fare per un punto, 
per un insieme di valori qualun- 
que, o in progressione aritmetica? 


I coefficienti e i valori della varia- 
bile sono interi (nel qual caso non 
si saranno problemi di precisione, 
ma rischi di valori troppo grandi) o 
possono essere reali (attenzione 
agli errori di arrotondamento). 


Immaginate che i coefficienti sia- 
no interi, compresi nell’insieme {0, 
1, 2, ..., 9} e la variabile abbia il 
valore 10. Scriverete un program- 
ma in questo caso? 


Supponete che il problema si 
enunci così: 


® Sia dato un polinomio mediante 
la successione dei suoi coefficienti, 
secondo l’ordine del grado discen- 
dente, e la successione comprenda 
almeno un termine (nel caso che 
contenga un termine, è un polino- 
mio di grado 0, una costante). 
Questi coefficienti sono reali. 


® Sia data una successione di valori 
della variabile, reale, in ordine 
qualunque, ma non nullo. 
Calcolate, alla precisione della 
macchina, il valore del polinomio 
su questa successione di valori del- 


RIFLETTETE !/ 


la variabile. Si può cominciare a 
organizzare il lavoro: 


1 Leggere la successione dei coef- 
ficienti determinandone il numero 
i; grado — i-1; posizionarsi all’ini- 
zio della successione dei valori del- 
la variabile. 


2 Considerare il valore attuale x; 
calcolare il valore y del polinomio 
in x; stampare x e y; avanzare nella 
successione dei valori della variabi- 
le; se ci sono ancora valori da trat- 
tare andare a 2, altrimenti stop. 

Si ha un buon abbozzo del pro- 
gramma. Alcune difficoltà non so- 
no state ancora risolte, ma ciascu- 
na è stata localizzata. Si potrà ora 
decidere l’algoritmo di calcolo del 
valore del polinomio, per esempio 
il metodo di Horner. 


E ancora troppo presto per decide- 
re come rappresentare le successio- 
ni dei coefficienti e di valori della 
variabile. Non se ne sa abbastanza 
su quello che resta da fare. (_} 


I “proverbi di Arsac” continuano 
nel prossimo numero. 


MULTICOMPUTERSYSTEMS 


SE STATE VALUTANDO 
L'ACQUISTO DI UN 
COMPILATORE 


per il Vs. microcomputer Commodo- 
re PET, la M.C.S è lieta di informarvi 
che rende disponibile un dischetto 
(5.1/4") di prova per farVi meglio va- 
lutare la Vs. scelta. 

Il compilatore della Oxford Compu- 
ter System che la M.C.S. offre per i 
sistemi Commodore è l'unico a 
presentare i seguenti vantaggi: 


e SINO A150VOLTE PIU' VELOCE 
DEL PET BASIC 

e RIDUCE L'OCCUPAZIONE DI 
MEMORIA RAM 

e COMPATIBILE CON OGNI PRO- 
GRAMMA BASIC PET/CBM 


DISPONIBILI DUE 
COMPILATORI: 


®© PET SPEED PER APPLICAZIONI 
GESTIONALI 

e COMPILED INTEGER BASIC 
PER APPLICAZIONI TECNICO- 
SCIENTIFICHE 


Disco dimostrativo a richiesta com- 
prensivo di pratico manuale operati- 
vo. 


DISPONIBILI INOLTRE | 
SEGUENTI DISPOSITIVI: 


®e EDEX (BASIC 2.0/BASIC 4.1) IM- 
PLEMENTA IL BASIC CBM DI 20 
COMANDI 

e MULTEX (ROM) CONSENTE 
L'IMPIEGO DI PIU' CBM 8032 
CON UNA SOLA UNITA' A_DI- 
SCO 8050. 


50132 Firenze 
via Pier Capponi, 87 
tel. 055/571380 - 573901 


Dalle un morso 


» 


e crescerai,. 


Per avere successo, occorre crescere. 

Per questo tu stai sempre cercando qualcosa che ti 
aiuti a crescere, a migliorare le tue capacità, a 
sfidare gli ostacoli. 

Apple, il computer personale, ti aiuta 
a crescere più in fretta e ad andare 
più lontano di quel che credevi 
possibile. 

In altri termini, un elaboratore 
personale Apple ti assicura il potere di 
mandare ad effetto tutti i pensieri 
creativi che ti balenano nella mente. 
Per esempio, prendiamo la previsione. 
Mentre ogni elaboratore può rielaborare dei 
risultati per te se tu inserisci una serie di 
informazioni, tu non sempre hai le ore o le nottate 
(o non ancora l’accesso ad un elaboratore) per il 
normale cambiamento. 

Quante volte le tue brillanti idee - del tipo 
“Cosa succede se...” - muoiono perchè tu non 
puoi metterle in atto? Ora spingi al lavoro un 
elaboratore personale Apple ed avrai tutte le 
informazioni/analisi/opzioni che risponderanno 
al tuo “Cosa succede se...” un minuto dopo che 
avrai posto la domanda. Immagina che cosa 
vuol dire! 

Dopo che avrai individuato la soluzione migliore 
(lasciando la noia del lavoro di routine al tuo 
Apple) sarai in grado di organizzare la massa 
dei dati e dei loro rapporti reciproci in immagini 
comprensibili ed operative per sostenere le tue 
conclusioni. Il tuo Apple ti dà possibilità 
illimitate: tu non hai che da scegliere quel 
procedimento grafico che sostenga meglio il tuo 
punto di vista. Cambi idea? Il tuo Apple 
risponde più velocemente di quel che immagini 
alla nuova linea prescelta. 

Puoi anche usare il medesimo Apple per 
redigere e produrre i testi. E puoi usarlo per 
avere sulla punta delle dita un mucchio di dati 
importanti, per lavorare in base a notizie del 
momento (e sarà finita la storia di qualcuno che 
blocca le tue decisioni infilando nel posto 
sbagliato i tuoi dati-chiave!). 

È questo è solo l'inizio. Gli elaboratori personali 
Apple sono all'avanguardia per le migliaia dei 


loro programmi d’applicazione e per le centinaia 
dei loro accessori, dalla stampatrice alla 
derivazione telefonica. Così il tuo Apple può 
crescere alla velocità alla quale 
cresci tu e non ti lascerà mai 
indietro nella tua corsa verso quel 
mobile obiettivo che è il “successo”. 
Quel che più conta, Apple 
continua ad immettere sul mercato, 
sempre migliori e sempre più 
numerosi, accessori e software 
 »ienamente compatibili con quelli 
già esistenti. 
Questo significa nessun pensiero quando decidi 
di imboccare la “corsia di sorpasso” Apple: sarai 
sempre in grado di accelerare insieme ad ogni 
futura innovazione Apple. 
Non per nulla oggi ci sono già più di 350.000 
° Apple in uso. L’elaboratore 
personale Apple è la via 
maestra per crescere più in 
fretta e per andare avanti. 
E chi non vuole questo? 
Per sapere come Apple può 
aiutare anche te a crescere, 
spedisci questo tagliando oggi 
stesso. 


Per saperne di più sui sistemi Apple Il e Apple III di personal 
computer, compilate questo coupon e speditelo in busta chiusa 
a: Iret Informatica S.p.A. - Via Bovio, 5 - 42100 Reggio Emilia 
Tel. 0522/32643. 
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ENCYCLOPEDIA 


FOR THE TRS-80* 


ENCYCLOPEDIA 
FOR THE TRS-80* 


A ibra of usetu Information 
foryour TRS80 


Encyclopedia for the TRS-80* 


Qual è la chiave per avere il massimo 
dal vostro TRS-80*? No, non sono i di- 
schi, le stampanti o ijoystick. È l’informa- 
zione. Senza un continuo flusso di infor- 
mazioni e idee non potete sfruttare la po- 
tenzialità del vostro TRS-80*. 

La risposta a questa domanda di infor- 
mazione è l’Eneyclopedia for the TRS-80*, 
un’opera in dieci volumi che contiene pro- 
grammi e articoli attentamente scelti per 
aiutarvi a ricavare il massimo dal vostro 
personal computer. 

Ogni volume dell’Eneyclopedia com- 
prende circa 300 pagine di formato 15X23 
cm, più di venti programmi e cinque arti- 
coli di harware e software. I primi quattro 
volumi sono già disponibili. I prossimi sei 
verranno pubblicati entro la prima rfietà 
dell’82. 


* TRS-80 è marchio depositato della divisione Radio Shack 
della Tandy Corp. 


ENCYCLOPEDIA 
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Encyclopedia Loader 


Gli editori dell’ Encyclopedia hanno rea- 
lizzato una serie di dieci cassette ognuna 
delle quali riporta i programmi contenuti 
nel rispettivo volume dell’Eneyclopedia. 
Questa serie di cassette è chiamata Enoy- 
clopedia Loader. Nell’Encyclopedia for the 
TRS-80* è contenuta tutta la documenta- 
zione necessaria, ma con Encyclopedia Loa- 
der potete caricare i vostri programmi 
istantaneamente. 


Encyclopedia for the TRS-80* e Ency- 
clopedia Loader sono pubblicati negli 
Stati Uniti dalla Wayne Greene Books 
e vengono importati in Italia in versio- 
ne originale dalla Completo Software, 
che li propone ad ogni possessore di 
TRS-80* modello I o III. 

Ogni volume dell’Encyclopedia for 
the TRS-80* è offerto a 16.000 lire. 

Ogni cassetta dell’Encyclopedia Loa- 
der è offerta a 20.000 lire. 

Le spese di spedizione sono gratui- 
te. 


Spedire a 
COMPLETO SOFTWARE 
Via Bonporti 32 
35100 PADOVA 


Voglio ricevere i seguenti volumi di Enoyelo- 
pedia for the TRS-80* e i seguenti nastri di 
Eneyelopedia Loader: 

O) Pagherò contrassegno 

O Accludo un assegno 

O Ho versato l'importo su c/cp 16915357 in- 
testato a Completo Software 


vol. 1 O Encyclopedia D Loader 
vol. 2 © Encyclopedia D Loader 
vol. 3 O Encyclopedia O Loader 
vol. 4 O Encyclopedia O Loader 
Tonale lies pari ama sunenione 
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Indirizzo 


Cap. Località 


Raccolta 
Gli) roUtime 


Basie 


Punteggiatura 


In questa rubrica raccogliamo le routine Ba- 
sic che ci sembrano di interesse generale. Ne 
verrà pubblicata una per ogni numero. Invitia- 
mo i lettori a comunicarci eventuali modifiche 
che migliorino (per velocità, occupazione di 
memoria o generalità di applicazione) le routi- 
ne pubblicate. Questo mese iniziamo con una 
routine per la punteggiatura dei numeri interi 
“all’italiana”, cioè l'inserimento di un punto di 
separazione tra le centinaia e le migliaia, tra le 


| 


La) 


centinaia di migliaia e i milioni e così via. La 
routine inoltre incolonna il numero appoggian- 
dolo a destra in una posizione stabilita. 

Come regola generale, il listato contiene tut- 
te le informazioni per usare la routine. Le linee 
1, 2 e 3 sono un esempio di utilizzazione. La 
routine inizia alla riga 1000, dove sono specifi- 
cati scopo, variabili (in input o in output) e vin- 
coli di tali variabili (controllati dalla routine op- 
pure no). Segue quindi il corpo della routine. 


1 


INFUT N, X 
GOSUE 1000 
GOTO 1 


‘O 
TE LA PUNT LA 
E RI CON FIU' DI 
N BA IN UNA FOR 
1040 REM: VARIABILI 
10650 REM: NM NUMERO DA FUNTEGGISRE 
1060 R x IRE IONE DI E: 
1070 X$ 0 NUMERO FUNTEGGIATO 
10R0 
LORI VINCOLI 
1082 X DEVE RE MAGGIORE DI DFE 
L08 C SONE LE CIFRE DI N MONO CONTROLI.E 
1084 
1085 L90000 001 INIZIO R 
1086 


1160 XA 
1170),h 
1180 EFT (N, T+E) +X 

INT TAB{X-LENTX$) ) 1X$ 
RETURN 


Commodore 
e alla Homic 


Vieni alla Homic, e fatti mostrare un . PO RECTO - È 
“personal” Commodore: li trovi tutti problemi scolastici, di divertimento e tecnico 


Mputer, che 


dall’eccezionale Vic20 Colour Co 
permette di lavorare 


con 24 colori, 


produce suoni e musica 
ed è collegabile con 


ogni apparecchio 
televisivo e risolve 


scientifici, alla Serie CBM destinata a 
trattare quantità medie e grandi di dati per 
la gestione della 
casa, degli studi 
professionali e delle 
piccole aziende. 

Vieni alla Homic: 
trovi il meglio. 


SS 


VETTE Vere 


il più grande centro italiano di mierocomputer 


Uffici: Piazza De Angeli 3 - Milano - Tel. 4695467-4696040-4984583 


ONVIIN SOHII 


Ecco quali sono le 
capacità grafiche dei 
personal computer più 
diffusi, e come si 
possono convertire i 
programmi scritti per 
un calcolatore in modo 
che possano essere 
eseguiti su di un altro. 


di Richard Kaplan 


La riproduzione di questo articolo 
è stata concessa dalla rivista Creati- 
ve Computing. 

Traduzione di Luigi Tagliarolo 


Conversioni grafiche 
tra TRS-80, Apple 


e PET 


ra attaccato al suo computer 
E da molte ore: stava bat- 
tendo la lista del suo gioco 
preferito. “Convertire questo pro- 
gramma per la mia macchina do- 
vrebbe essere un gioco da ragazzi” 
pensava. “Dopotutto sono un vec- 
chio professionista della program- 
mazione con l’Apple. Un TRS-80 
non sarà poi così differente”. 
Dopo alcune settimane di infrut- 
tuosa programmazione, si arrese al 
suo computer. Aveva scoperto 
quanto può essere dura la vita (in 
questo caso la conversione di un 
programma) per chi conosca solo il 
proprio computer. IDE 
La conversione grafica è forse 
uno dei problemi più frustranti con 
cui un utente di microcomputer ab- 
bia a che fare. Ad un programma- 
tore di Apple, l’istruzione 


PRINT@1000, A+B 


può sembrare un modo di istruire il 
proprio computer ad aspettare fino 
alle dieci in punto prima di stampa- 
re A+B. Per lo stesso motivo, un 
programmatore di TRS-80 non sa 
immaginare il significato dell’istru- 
zione HGR: gli viene solo in mente 
che possa essere l'abbreviazione di 
hungarian. 

Quindi, molto spesso, program- 
matori estremamente competenti si 
trovano totalmente fuori strada nel 
convertire programmi per la pro- 
pria macchina. 

Questo articolo tratta l’ Apple II, 
il TRS-80 modello I e modello III e 


il PET/CBM. In molti casi è possi- 
bile tradurre la grafica di una mac- 
china direttamente su un’altra, 
proprio come si traduce un lin- 
guaggio straniero. Tuttavia, ci sono 
molte situazioni in cui è abbastanza 
avventato tentare la traduzione di- 
retta. 

A questo punto, il miglior ap- 
proccio è cominciare con il trovare 
esattamente il significato di ogni 
funzione grafica del programma 
che state traducendo. Diamo dun- 
que un’occhiata alle capacità grafi- 
che del vostro computer. 


APPLE 


L’Apple produce grafica in tre 
modi: con le istruzioni PRINT 
standard e con due speciali modi 
grafici. 

Ogni calcolatore può produrre 
grafica stampando caratteri sullo 
schermo. Un semplice istogramma, 
per esempio, si può facilmente rea- 
lizzare stampando degli asterischi 
nella posizione appropriata dello 
schermo. L’Apple ha due istruzioni 
che aiutano molto la scrittura di 
programmi di questa natura e che 
sono molto utili nel convertire pro- 
grammi del TRS-80 per l’ Apple. 

Il primo passo con la grafica me- 
diante PRINT è l’azzeramento del- 
lo schermo. Battendo HOME (0 
eseguendo questa istruzione dal- 
l’interno di un programma in Ap- 
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Conversioni grafiche 


plesoft) si ottiene l’azzeramento 
dello schermo. Se avete l’Integer 
Basic, l’istruzione corretta è 
CALL—-936. 


VTAB e HTAB 


L’istruzione VTAB controlla la 
posizione del cursore lungo l’asse 
Y. Ci sono 24 righe su cui l'Apple 
può stampare in text mode. Batten- 
do VTAB XX, dove XX è un nu- 
mero tra 1 e 24, si ottiene il posi- 
zionamento del cursore in quella li- 
nea, senza cancellare alcun caratte- 
re. Per esempio, supponete di ese- 
guire 

FOR I=1 TO 12 
PRINT “HELLO” 
NEXT 


Eseguendo le istruzioni 


VTAB 5 
PRINT “CIAO” 


VHELLO della quinta riga viene 
sostituito con CIAO. 

Lo stesso principio può essere 
applicato con la tabulazione oriz- 
zontale. Battendo HTAB XX, do- 
ve XX è un numero da 1 a 40, si 
avrà il posizionamento del cursore 


in orizzontale nella posizione speci- 
ficata. 


HTAB e VTAB possono essere 
molto utili nel convertire altri pro- 
grammi per l'Apple, specialmente 
se usati assieme alle altre funzioni 


PEEK(37) contiene un numero 
da 0 a 23, il cui valore è la posizio- 
ne verticale del cursore. Questo 
numero è uno meno del valore usa- 
to nell'istruzione VTAB. Se il cur- 
sore è sulla linea 10 e volete spo- 
starlo in su di una posizione l’istru- 
zione VTAB PEEK(37) fa esatta- 
mente questo. HTAB PEEK(36) o 
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HTAB POS(0) fanno la stessa cosa 
in orizzontale, cioè spostano il cur- 
sore indietro di una posizione. Bi- 
sogna fare attenzione, tuttavia, di 
non eseguire HTAB per una posi- 
zione inferiore a 1 o superiore a 
40, oppure VTAB per una posizio- 
ne inferiore a 1 o superiore a 24. 

Sebbene l’uso di normali istru- 
zioni PRINT sia un mezzo molto 
primitivo di programmare la grafi- 
ca, in alcuni casi può essere il me- 
todo migliore e più diretto per con- 
vertire un programma. In situazio- 
ni in cui sono presenti grafici più 
complessi, tuttavia, può essere de- 
siderabile usare uno dei metodi 
grafici dell'Apple. 

L’Apple ha due modi grafici. 
Questi modi permettono di usare 
fino a 16 colori e alcune potenti 
istruzioni di plotting (tracciamen- 
to). L’unico inconveniente nell’u- 
sare i modi grafici dell’Apple è che 
il testo e la grafica non possono es- 
sere mescolati nella stessa area di 
schermo senza enormi sforzi di 
programmazione. In generale il 
programmatore dovrà accontentar- 
si di quattro linee di testo in fondo 
allo schermo. 


Grafica a bassa risoluzione ( lo-res) 


La grafica a bassa risoluzione 
dell'Apple è molto conveniente per 
semplici programmi grafici. Si può 
usare una matrice di 40x40 blocchi 
grafici con quattro linee di testo sul 
fondo. In alternativa è possibile 
avere una matrice 40x48 senza te- 
sto. Sono disponibili sedici colori. 

Battendo GR (o usandolo dal- 
l'interno di un programma) si passa 
alla grafica a bassa risoluzione 
(grafica e testo). Lo schermo viene 


azzerato e le istruzioni PRINT agi- 
scono solo sulle quattro linee infe- 
riori dello schermo. 

Se desiderate un’area grafica 
maggiore (40x48) battete 
POKE-16302,0. Le quattro linee 
in fondo allo schermo spariscono e 
avrete altre otto linee di grafica. 

Prima di tracciare qualunque co- 
sa, occorre specificare un colore. 
Ne sono disponibili sedici. Per as- 
segnare un colore si batte 

COLOR=X 
dove X è: 
nero 
TOSso magenta 
blu scuro 
viola 
verde scuro 
grigio 
blu medio 
blu chiaro 
marrone 
arancio 
10 grigio 
ll rosa 
12 verde 
13 giallo 
14 verde acqua 
15 bianco 


VEJA ULWNEO 


L’assegnazione di un colore non 
ha effetto sulla grafica già presente 
sullo schermo. Solo le istruzioni 
grafiche eseguite successivamente 
avranno quel colore. Quindi, ese- 
guendo diverse assegnazioni di co- 
lore, si possono avere diversi colori 
sullo stesso schermo. : 

Ora arriviamo alla questione 
fondamentale. Come si traccia un 
punto? Fondamentalmente, lo 
schermo Apple funziona come un 
sistema matematico di coordinate. 
L’asse X può essere immaginato in 
cima allo schermo, numerato con 
le coordinate da 0 a 39. L’asse Y 
corre parallelo al lato sinistro dello 
schermo con lo 0 in cima e 39 0 47 


10 GR 

20 COLOR=3 

30 HLIN 0,39 AT 0 
40 VLIN 0,39 AT 39 
50 HLIN 0,39 AT 39 
60 VLIN 0,39 AT 0 


Grafica a bassa risoluzione 

Il colore è viola 

Traccia una linea in cima allo schermo 
Traccia una linea alla destra dello schermo 
Traccia una linea in fondo allo schermo 
Traccia una linea a sinistra dello schermo 


Fig. 1. Una cornice in bassa risoluzione per l'Apple. 


in fondo, secondo che avete scelto 
di usare o no le quattro linee di te- 
sto. Dunque il punto 0,0 è in alto a 
sinistra dello schermo e il punto 
39,39 è in basso a destra dello 
schermo (nel modo grafica-testo). 

L’istruzione PLOT traccia un 
punto specificato. Il suo formato è 
PLOT X,Y. Quindi PLOT 20,20 
traccia un quadrato a distanza 20 
dalla sinistra dello schermo e 20 
dalla parte superiore. Per cancella- 
re questo punto, specificate il colo- 
re 0 (nero) o comunque quello di 
fondo e ritracciate il punto. 

E anche possibile tracciare una 
linea tra due punti dello schermo. 
Il comando HLIN X,Y AT Z trac- 
cia una linea orizzontale tra le 
coordinate orizzontali X e Y alla 
coordinata verticale Z. Quindi l’i- 
struzione HLIN 1,20 AT 10 collega 
i punti 1,10 e 20,10. VLIN X,Y AT 
Z fa la stessa cosa per una linea 
verticale. Quindi il comando VLIN 
1,20 AT 10 collega i punti 10,1 e 
10,20. 

Per un esempio di grafica a bassa 


risoluzione, vedi il programma di 
figura 1 che traccia una cornice at- 
torno allo schermo. Infine, l’utente 
deve conoscere come uscire da 
questo modo grafico. Semplice- 
mente battendo TEXT: lo schermo 
si riporta alle solite 24 righe di te- 
sto e 40 caratteri per linea. 


Grafica ad alta risoluzione (hi-res) 


La grafica ad alta risoluzione 
dell'Apple offre alcune fra le mi- 
gliori capacità grafiche presenti sui 
microcomputer. Sebbene si possa- 
no usare solo otto colori, si può ot- 
tenere una risoluzione di 280x192 
pixel, permettendo di programma- 
re figure molto dettagliate e una 
grafica molto espressiva. 

Per passare al modo grafico in 
alta risoluzione si batte HGR. Ciò 
vi mette a disposizione un reticolo 
280x160 con quattro righe di testo 
in fondo allo schermo. Battendo 
HGR2 invece di HGR, oppure 
battendo POKE—-16302,0 dopo 


10 HGR 

20 COLOR=1 

30 HPLOT 0,0 TO 0,159 TO 279, 
159 TO 279,0 TO 0,0 


Grafica ad alta risoluzione 
Il colore è verde 
Collega i quattro angoli dello schermo 


Fig. 2. Una cornice in alta risoluzione per l’ Apple. 


aver battuto HGR ci si pone in 
modo grafico a schermo pieno, con 
una risoluzione di 280x192. 

I colori ad alta risoluzione si de- 
terminano in maniera simile alla 
basa risoluzione. HCOLOR= è 
l'equivalente dell’istruzione 
COLOR= in bassa risoluzione. Gli 
otto colori disponibili in alta risolu- 
zione sono: 


dipende dalla TV 
dipende dalla TV 
bianco 2 


0 nero 

1 verde 

2 blu 

3 bianco 1 
4 nero 

5 

6 

A 


Le coordinate in alta risoluzione 
sono numerate da 0 a 279 lungo 
l’asse delle X (in cima allo scher- 
mo) e da 0 a 159 (HGR) o da0 a 
191 (HGR?2) lungo l’asse delle Y. 

L’istruzione equivalente a PLOT 
in alta risoluzione è HPLOT. 
HPLOT X,Y traccia un punto nel- 
la posizione X,Y. 

Nella grafica ad alta risoluzione, 
è possibile tracciare una linea da 
una posizione qualsiasi ad un’altra 
qualsiasi, anche in maniera diago- 
nale. L’istruzione HPLOT X,Y TO 
X,Y o HPLOT X,Y TO X,Y TO 
X,Y collega i punti indicati tra i 
TO. Si tratta di una istruzione mol- 
to potente, non disponibile in bas- 
sa risoluzione. 

Per un esempio di grafica in alta 
risoluzione sull’Apple, si veda il 
programma in figura 2 che traccia 
una cornice attorno allo schermo, 
come nell’esempio precedente. 

Anche in questo caso l’istruzione 
TEXT riporta il computer al nor- 
male text mode. 


ss 


Conversioni grafiche 


TRS-80 


La grafica del TRS-80 è molto 
più semplice di quella dell'Apple, 
sebbene non sia così versatile. Non 
sono previsti speciali modi grafici. 
Il testo può essere stampato in una 
determinata posizione dello scher- 
mo (come con le istruzioni VTAB 
e HTAB dell'Apple) e si può usare 
la grafica sullo stesso schermo. La 
risoluzione del TRS-80 può essere 
paragonata alla bassa risoluzione 
dell’Apple. 

I modelli I e III sono quasi iden- 
tici: il 95% delle istruzioni TRS-80 
possono essere usate sulle due 
macchine. Per questo motivo par- 
lerò semplicemente di TRS-80 rife- 
rendomi ai due modelli. Quando 
una particolare caratteristica è di- 


sponibile solo su un modello, lo 
specificherò. 


Istruzioni PRINT 


Il TRS-80, come l'Apple, può 
produrre grafica mediante le istru- 
zioni PRINT. Tuttavia, il TRS-80 
ha una speciale istruzione 
PRINT@, che rende possibile il ri- 
ferimento ad ogni posizione dello 
schermo mediante un semplice nu- 
mero. Può essere una istruzione 
molto potente se usata efficace- 
mente. 

Lo schermo del TRS-80 è com- 
posto di 16 righe ognuna di 64 ca- 
ratteri, per un totale di 1024 possi- 
bili posizioni. Queste posizioni so- 
no numerate da 0 a 1023, con lo 0 
in alto a sinistra, 63 alla fine della 
prima riga, 64 all’inizio della se- 
conda riga, e così via fino a 1023 in 
basso a destra. La sintassi di questa 
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CHR$(X) 

valore di X Azione ha 

24 Sposta il cursore di un posto a sinistra 

25 Sposta il cursore di un posto a destra 

26 Sposta il cursore di una riga in basso 

27 Sposta il cursore di un riga in alto ti 

28 Sposta il cursore nell’angolo in alto a sinistra 


Tav. 1. Spostamento del cursore con CHR$ sul TRS-80 


istruzione è PRINT@ XXXX,... 
dove XXXX è un numero da 0 a 
1023 e... è qualunque espressione 
valida in una normale istruzione 
PRINT. 

Torniamo agli esempi visti per 
l’Apple. Prima battete 


FOR I=1 TO 12 
PRINT “HELLO” 
NEXT 


Per sostituire il quinto HELLO 
con CIAO sull’Apple scrivevamo 


VTAB 5 
PRINT “CIAO”. 


Sul TRS-80 invece il miglior modo 
per fare la stessa cosa è di identifi- 
care il valore numerico della prima 
locazione della quinta riga dello 
schermo. A tal scopo possiamo 
usare la formula (X—1)*64, e scri- 
viamo 


PRINT@ (5-1)+64, “CIAO” 


Notate, che il cursore è stato 
spostato sulla quinta riga dello 
schermo e quindi la parola REA- 
DY viene ora scritta su un HEL- 
LO. Se non volete che ciò succeda, 
potete aggiungere 


PRINT@ (13-—1)+64,%”. 


che riporta il cursore sulla tredice- 
sima riga. 


Molto spesso, nel convertire la 
grafica, è conveniente spostare il 
cursore in su o in giù di un posto 
senza usare l’istruzione PRINT@. 
Per esempio quando non si cono- 
sce la posizione attuale del cursore, 
oppure nel convertire un program- 
ma PET che usa un metodo specia- 
le per posizionare il cursore. Si può 
farlo usando la funzione CHR$. 
Scrivendo PRINT CHR$(X) si ot- 
tiene l’azione indicata nella tavola 
1 


Caratteri grafici 


Il TRS-80 può creare grafica an- 
che scrivendo speciali caratteri gra- 
fici. Questi caratteri (vedi figura 3) 
consistono di tutte le 64 possibili 
permutazioni on/off di una matrice 
2x3 (2°3=2%=64). Questi caratteri 
grafici possono essere stampati 
usando la funzione CHRÎ$. Batten- 
do CHR$(X), dove X è il codice 
numerico del carattere speciale ri- 
chiesto, si ottiene la stampa di quel 
carattere. Questa funzione può es- 
sere usata anche assieme alla fun- 
zione PRINT@. Inoltre, l’istruzio- 
ne PRINT STRING$(X,Y) scrive 
una stringa di X caratteri grafici Y. 
Quindi l’istruzione PRINT@ 
0,STRING$(64,191) stampa una li- 
nea orizzontale in cima allo scher- 
mo. 


DEC ESA CODICE Z80 GRAFICA BASIC TRS-80 
128 80 ADD A,B Ù END 
129 gl ADD A,C I] hi Ni FOR 
130 82 ADD A,D - RESET 
131 83 ADD AyE ME SET 
132 84 ADD A,H CLS 
133 85 ADD A,L li |] CMD 
134 86 ADD A, (HL) = 8a 65 #6 87 RANDOM 
135 87 ADD A,A NEXT 
136 88 ADC A,B [ N I, IL DATA 
137 89 ADC A,C L INPUT 
P 38 8A ADC A,D 88 89 BA 84 DIM 
II TRS-80 modello III ha ulterio- 5 si ADC ALE READ 
ri 96 caratteri speciali. Sessanta- 140 8c ADC A,H if | LET 
quattro di questi possono essere 141 8D ADC Axh SC 50 BE i Sono 
stampati esattamente come i ses- 165 sE iSS Roe) ca 
>> . ' 
santaquattro visti sopra. Si tratta 144 90 SUB B [ I h î RESTORE 
dei codici 192-255 (vedi figura 4). 145 91 SUB C sO dI 92 93 GOSUB 
Tuttavia, c'è una piccola istruzione lte 25 SEE È e 
che deve essere eseguita prima di Le; 94 SUB H i I I [ STOP 
stampare questi caratteri. Quando 149 95 SUB L 44 US Yb 4/ ELSE 
si accende il modello III, questi 64 150 96 SUB (HL) TRON 
codici rappresentano caratteri di 13 A SE È B î hi I, i, SERSTR 
“compressione spazio”. PRINT 153 99 SBC AFC 98 99 9A 48 DEFINT 
CHR$(192) non stampa alcun spa- 154 9A SBC A,D DEFSNG 
zio, PRINT CHR$(193) stampa 155 9B SBC A,E r E fl DECORA 
uno spazio, fino a PRINT 136 SE 286 ci SC 40 SE sf EDIT 
CHR$(255) che stampa 63 spazi. 158 9E SBC A, (HL) l ERROR 
Per sostituire questi caratteri di 159 9F SBC A,A N NOn RESUME 
compressione dello spazio con gli 160 A0 AND G I SUE 
speciali caratteri grafici, battete n di: AND D OPEN 
PRINT CHR$(21). Questa istru- 163 A3 AND E DI L lo li FIELD 
zione funziona come un commuta- 164 A4 AND H î Sen 
tore tra i caratteri di compressione 165 AS ARE Ta) aa CLOSE 
spazio e i caratteri grafici speciali. Res Re AND A LOAD 
168 AB xXOR B il lj Il hl MERGE 
169 AI XOR C AA AA AB NONE 
170 AA xOR D 
Il TRS-80 modello III 171. AB xOR E LSET 
+ 172 AC xXOR H hi RSET 
ha uno speciale 173 AD xoR Lr DIE o SAVE. 
OLA È . 174 AE x 
insieme di 96 caratteri 175 AF xOR A an LPRINT 
Sr ; 176 80 OR B di fia DEF 
grafici e un ulteriore 177 BI OR C li hi POKE 
DT x a DÒ Ù BI HS È PRINT 
insieme di caratteri - - CONT 
japponesi. 180 B4 OR H u L i ld LIST 
giapp 181 BS OR L LLIST 
—_——Fr=eyÒ_yo@o@o@]mtY]£ =" 182 B6 OR (HL) BA 55 H6 H/ DELETE 
183 B7 OR A AUTO 
Oltre ai 64 caratteri grafici spe- 184 B8 CP B È CLEAR 
ciali disponibili sul modello III, esi- 185 B9 ce C j " I hl CLOAD 
lale ins i 186 BA cP D CSAVE 
ste uno speciale insieme di caratte- 187 Ti CE E non ha nu NEW 
ri giapponesi. I loro codici vanno 188 BC CP H TAB( 
da 192 a 255 come i caratteri grafici 189 BD CP L Î i Î| | TO 
speciali, ma vengono selezionati 190 BE È ELI Semhe 
eseguendo PRINT CHR$(22) dopo 191 sE pi 
aver selezionato l’insieme dei ca- 


ratteri speciali con l’istruzione 
PRINT CHR$(21). Fig. 3. Caratteri grafici del TRS-80 (codici 128-191) 


Conversioni grafiche 


Se siete sorpresi dal numero di 
caratteri disponibili sul modello 
III, c'è ancora un’altra sorpresa 
per voi. Esiste un altro insieme di 
caratteri sul modello III. Sono i co- 
dici 0-31 (vedi figura 4). Tuttavia, 


Get CLS 

20 FOR X=0 TO 127: SET (X,47): 
SET (X,0): NEXT: 
FOR X=0 TO 47: SET(0,X): 
SET(127,X): NEXT 

30 PRINT 512, “BATTI ENTER 
PER VEDERE I 
CARATTERI SPECIALI” 

40 INPUT®”;X$ 

50 CLS 

60 PRINT CHR$(21) 

70 FOR I=192 TO 255: 
PRINT CHR$(1):;©”;: 
NEXT 

80 INPUT“BATTI ENTER PER 
VEDERE I CARATTERI 
GIAPPONESI”;X$ 

90 PRINT CHR$(22) 

INPUT“BATTI ENTER 

PER FINIRE”;X$ 

110 PRINT CHR$(22); CHR$(21);: 
CLS: END 


Azzera lo schermo 
Traccia una cornice attorno allo schermo 


Messaggio al centro dello schermo 


Attende che venga battuto un tasto 
Azzera lo schermo 

Seleziona i caratteri grafici 

Stampa i caratteri 


Attende 
Seleziona i caratteri giapponesi 


Attende 


Seleziona i caratteri standard e azzera 
lo schermo 


£160A4-6 
SUR ARAR 
NOsSsBudt E 
saasÉRe- 
pet itos è 
sProsele 
LKAHv5OT 
PETU®XYO 
Su FESAXE 
tAnov SE 
ATtBESTR 
609 REN 


Fig. 4. Caratteri grafici speciali del 
TRS-80 modello III (codici 0-31, 
192-255) 
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Fig. 5. Programma dimostrativo della grafica del TRS-80 


essi sono accessibili solo con istru- 
zioni POKE. Per poter stampare 
un carattere grafico da 0 a 31, il va- 
lore di quel carattere deve essere 
posto in appropriate locazioni di 
memoria che la Radio Shack chia- 
ma VIDRAM. Questi indirizzi di vi- 
deo partono da 15360 e arrivano a 
16383 e sono equivalenti ad una 
PRINT@indirizzo+15360. Quindi, 
per scrivere il carattere speciale 10 
all’inizio dello schermo, dovete 
battere POKE 15360,10. 

Non abbiamo finito con le capa- 
cità grafiche del TRS-80. Ambedue 
i modelli possono anche tracciare 
punti sullo schermo. Questi punti 
possono apparire sullo schermo as- 
sieme alle altre caratteristiche gra- 
fiche del TRS-80, e anche assieme 
a testo. 

Lo schermo del TRS-80 è diviso 
in una matrice 128x48, ogni blocco 
della quale può semplicemente es- 
sere posto on o off. I due modelli 
non prevedono il colore. 

L'istruzione SET (X,Y) accende 
il blocco grafico nella posizione X 
(orizzontale) e Y (verticale). Il va- 
lore di X può essere tra 0 e 127, 
mentre il valore di Y può essere tra 
0 e 47. Una importante differenza 
tra accendere un blocco grafico e 
Stampare un carattere grafico è che 
un blocco grafico non provoca lo 
scrolling dello schermo. 


L’istruzione RESET, come detto 
prima, spegne il blocco grafico spe- 
cificato. La sintassi dell’istruzione 
è RESET (X,Y) ed ha esattamente 
gli stessi parametri dell’istruzione 
SET. Vedi la figura 5 per un esem- 
pio che dimostra alcune caratteri- 
stiche di base della grafica del 
TRS-80. 


PET 


La grafica del PET è molto diffe- 
rente da quella del TRS-80. Sul 
PET non ci sono modi grafici spe- 
ciali, né ci si può riferire ad un 
punto specifico sullo schermo per 
mezzo di coordinate. Essenzial- 
mente la grafica del PET consiste 
di istruzioni PRINT standard com- 
binate con caratteri speciali di mo- 
vimento del cursore. (I caratteri 
grafici che possono essere stampati 
si ottengono premendo il tasto 
SHIFT e un altro tasto. I tasti di 
movimento del cursore sono speci- 
ficamente indicati, e talvolta vanno 
premuti assieme a SHIFT). (Vedi 
figura 6). 

Il PET ha sei caratteri di movi- 
mento del cursore. Questi caratteri 
sono trattati come ogni altro carat- 
tere sulla tastiera in quanto posso- 
no essere assegnati ad una stringa e 
stampati. Quando sono stampati, 


PRINTS  CHRS$ 


(o) 


Al 


70 


71 


PRINTS CHRS 


Gera 


16 


17 


18 


19 


20 
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28 
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85 
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87 
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91 
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USE 


dOsSsSO 


106 
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112 
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4 48 
1 49 
2 50 
3 51 
4 52 
5 53 
6 54 
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8 56 
9 57 
58 

59 

È 60 
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> 62 
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Fig. 6. Caratteri standard del PET 
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Conversioni grafiche 


appaiono come simboli speciali, di- _ 
versi da ogni carattere su ogni altro 
computer. È 

Il tasto HOME riporta il cursore 
nell’angolo in alto a sinistra dello 
schermo. Viene stampato come 
una $S in campo inverso. 

Il tasto HOME assieme a SHIFT 
fa la stessa cosa ma in più azzera il 
video. Appare sullo schermo come 
un cuore in campo inverso. 

Il tasto CRSR giù/su sposta il 
cursore in giù di una linea. Appare 
come una Q in campo inverso. Lo 
stesso tasto con SHIFT muove il 
cursore in su. Appare come un cer- 
chio vuoto con un bordo nero. 

Il tasto CRSR destra/sinistra 
sposta il cursore di una posizione a 
destra. Appare sullo schermo come 
una parentesi quadra in campo in- 
verso. 

Lo stesso tasto con SHIFT spo- 
sta il cursore di una posizione a si- 
nistra. Appare sullo schermo come 
un rettangolo nero con una linea 
bianca verticale. 

Questi sei caratteri di controllo 
del cursore possono essere trattati 
esattamente come ogni altro carat- 
tere del PET. Per esempio l’istru- 
zione 


PRINT“(SHIFTHOME)(CRSR giù) 
(CRSR giù) (CRSR giù)HELLO” 


azzera lo schermo e posiziona la 
parola HELLO sulla quarta linea. 

Il PET ha anche un insieme al- 
ternativo di caratteri, che si può se- 
lezionare battendo POKE 
59468,14. La tastiera in questo mo- 
do funziona come una comune ta- 
stiera con le maiuscole e le minu- 
scole. Per tornare al set standard di 
caratteri si esegue la POKE 
59468,12. 

Il programma in figura 7, sebbe- 
ne molto semplice, illustra il meto- 
do di base per inserire la grafica in 
un programma per il PET. Il pro- 
gramma azzera lo schermo, sposta 
il cursore alla quarta riga e traccia 
un quadrato. 


Conversione dal TRS-80 all’ Apple 


Nel convertire un programma 
dal TRS-80 all’Apple, potete usare 
il modo TEXT, la grafica a bassa 
risoluzione, o la grafica ad alta ri- 
soluzione. 

Il modo TEXT deve essere usato 
quando il programma originale 
comprende istruzioni PRINT@ o 
semplicemente istruzioni PRINT, e 
il testo o la grafica sullo schermo 
possono essere condensati su 40 
colonne. A parte lo schermo più 
piccolo, l’unico inconveniente nel- 


l’usare l’Apple sarà che i caratteri 
grafici non possono essere usati nel 
modo TEXT. 

L’istruzione che più produce 
confusione è probabilmente la 
PRINT@. Tuttavia, si tratta dell’i- 
struzione più facile da convertire. 
L’istruzione a TRS-80 PRINT@X, 
“QUESTA E UNA PROVA” può 
essere convertita in tre istruzioni 
Apple 


VTAB INT(X/64)+1 

HTAB X+1-INT(X/64)+64 

PRINT“QUESTA E UNA 
PROVA” 


Nell’usare questa procedura di 
conversione, tuttavia, il program- 
matore deve fare attenzione a che 
HTAB non superi la colonna 40. 
Lo schermo del TRS-80 è largo 64 
colonne, contrariamente allo scher- 
mo dell’Apple che ne ha 40. Se so- 
no necessarie solo 40 colonne, que- 
sta procedura è probabilmente la 
più semplice da usare. Può essere 
consigliabile, tuttavia, tracciare su 
carta i risultati delle istruzioni 
PRINT@ per ottenere risultati più 
piacevoli. 

La conversione più semplice tra 
TRS-80 e Apple (in modo TEXT) 
è l’azzeramento dello schermo. Ba- 
sta sostituire ogni CLS con un HO- 
ME. 


10 PRINT*(SHIFT HOME)(CRSR giù) 
(CRSR giù)(CRSR giù)”; 

20 PRINT ” 

30 FOR I=1 TO 7: PRINT“—I 

40 PRINT&----- ;) 


I:NEXT 


Azzera lo schermo e sposta il cursore in giù di quattro righe 


Traccia il lato superiore del quadrato 
Traccia i lati del quadrato 


Traccia il lato inferiore del quadrato 


Fig. 7. Programma dimostrativo per la grafica del PET 
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La grafica del TRS-80 può essere 
simulata in alta risoluzione o in 
bassa risoluzione. Questi metodi 
forniscono i risultati grafici più pia- 
cevoli. Tuttavia se occorre traccia- 
re sullo stesso schermo testo e gra- 
fica, deve essere usato il modo 
TEXT. In questo caso, dovete se- 
guire le istruzioni della grafica a 
bassa risoluzione sostituendo però 
HOME a GR (per azzerare lo 
schermo ma non entrare nel modo 
grafico). 


Su un Apple, la grafica 
del TRS-80 può essere 
simulata in alta o in 
bassa risoluzione. 


Le istruzioni PLOT, se usate al- 
l’interno del modo TEXT, non 
tracciano blocchi grafici alle coor- 
dinate appropriate, ma pongono 
invece sullo schermo caratteri stan- 
dard di testo. I caratteri che vengo- 
no stampati possono essere prede- 
terminati, ma ciò va al di là dello 
scopo di questo articolo. 

L’istruzione del TRS-80 
CHR$(31) azzera lo schermo dalla 
posizione del cursore in avanti. 
Sull’Apple si può simulare con l’i- 
struzione CALL —958. 

I caratteri grafici speciali del 
TRS-80 (compreso l’insieme di ca- 
ratteri alternativi del modello III) 
non possono essere facilmente ri- 
prodotti sull’Apple. Se avete un 
programma con testi e caratteri 
grafici speciali, le sole possibilità 
sono sostituire i caratteri con quelli 
standard dell’Apple o usare la gra- 


fica ad alta risoluzione e creare un 
generatore di caratteri, il che, per 
un programmatore inesperto, è 
un’impresa molto difficile. 

Se nel programma TRS-80 sono 
usati solo caratteri grafici (istruzio- 
ne SET) si può usare la grafica a 
bassa risoluzione dell'Apple. Ma, 
ricordate, la bassa risoluzione per- 
mette al massimo una matrice 
40x48 (senza testo) mentre il TRS- 
80 ha una matrice grafica di 
128x48. Tuttavia, se è possibile 
programmare un particolare appli- 
cazione entro questi vincoli, la gra- 
fica a bassa risoluzione è preferibi- 
le. È più semplice da usare di quel- 
la ad alta risoluzione e permette un 
numero doppio di colori. 

Lo schermo del TRS-80 deve pe- 
rò essere “condensato” a 40x48 o 
40x40. Una volta fatto questo, la 
procedura di conversione è molto 
semplice. 

Nel programma del TRS-80, 
guardate dove inizia la parte grafi- 
ca. Generalmente a questo punto 

è una istruzione CLS. Sostituitela 
con GR per azzerare lo schermo e 
passare alla bassa risoluzione. 

Le successive istruzioni PRINT 
del programma dovranno essere ri 
strette a quattro linee di testo. Tali 
linee dovranno essere contigue in 
fondo allo schermo. Non c’è biso- 
gno di nessuna particolare conver- 
sione delle istruzioni PRINT, a 
meno che non ci sia PRINT@. In 
questo caso, ricordate che si posso- 
no usare solo le righe 21-24 per i 
testi in grafica a bassa risoluzione. 

Se desiderate sostituire le quat- 
tro righe di testo con altre otto li- 
nee di grafica, eseguite l’istruzione 
POKE-16302,0. Avrete disponibi- 
le una matrice 40x48. 


Prima di tracciare i punti bisogna 
scegliere un colore. (Il colore può 
essere cambiato in ogni momento 
nel programma senza cambiare la 
grafica già tracciata). Si fa ciò con 
l'istruzione COLOR= (vedi so- 
pra). 

Tutte le istruzioni SET devono 
essere sostituite con istruzioni 
PLOT. Essenzialmente, SET 
(X,Y) diventa PLOT X,Y. Non 
tutti i valori validi per X e Y in una 
SET sono validi in una PLOT. X in 
una PLOT non può superare 39, 
ed Y non può superare 39 o 47 se- 
condo che lo schermo sia tutto ri- 
servato alla grafica o ci sia anche 
testo. 

Il passo finale è tradurre l’istru- 
zione RESET del TRS-80. Si fa 
esattamente come con una SET, 
ma il colore deve essere scelto 
uguale al fondo (generalmente ne- 
ro). Quindi l’esecuzione di una 
PLOT trasforma il blocco grafico 
nel suo stato originale. 


Grafica ad alta risoluzione 


La conversione della grafica del 
TRS-80 in grafica ad alta risoluzio- 
ne è più complicata, ma i risultati 
valgono lo sforzo. L’intero reticolo 
128x48 può essere trasferito nello 
schermo dell’Apple, assieme a tutti 
i 64 caratteri grafici (codici ASCII 
da 128 a 191). Anche l’insieme al- 
ternativo di caratteri del modello 
IIl può essere simulato, sebbene 
ciò richieda in qualche caso sostan- 
ziali sforzi programmatici. 

Prima di iniziare a discutere la 
procedura di conversione, diamo 
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Conversioni grafiche 


un’occhiata più da vicino alle capa- 
cità grafiche del TRS-80. Abbiamo 
detto che lo schermo è 128x48. 
Ma è realmente così? In effetti, 
ogni blocco grafico è, per se stesso, 
una matrice alta tre blocchi e larga 
due. Questo significa che lo scher- 
mo del TRS-80 può essere rappre- 
sentato come uno schermo di 
(128x2)x(48x3) cioè 256x144 
blocchi. L’Apple, nella grafica ad 
alta risoluzione assieme a testo, ha 
280x160 blocchi, così che di fatto 
l’intero schermo del TRS-80 può 
essere rappresentato nell’ Apple. 

Se avete seguito fin qui, avrete 
probabilmente notato che c'è un 
piccolo problema in questa proce- 
dura di conversione. Lo schermo 
del TRS-80, ricorderete, è compo- 
sto di 6144 blocchi. La porzione 
dello schermo dell'Apple che use- 
remo, invece, ne contiene 256x144 
cioè 36864. Ciò significa che dovre- 
mo tracciare 36864/6144 cioè 6 
punti sull’Apple per ogni punto del 
TRS-80. Ecco come si fa. 

. Dapprima scegliete il modo gra- 
fico appropriato per la vostra ap- 
plicazione (HGR o HGR?2). Gene- 
ralmente è sufficiente HGR, per- 
ché anche con le linee di testo in 
fondo allo schermo c’è posto suffi- 
ciente per sistemare l’intero scher- 
mo del TRS-80. 

Il prossimo passo è scegliere un 
colore con  l’istruzione 
HCOLOR=. Si può fare molto 
semplicemente scegliendo un valo- 
re dall'elenco presentato in questo 
articolo. 

Ogni volta che incontrate una 
istruzione SET(X,Y), deve essere 
convertita nelle equivalenti istru- 
zioni HPLOT. Le coordinate X e 
Y dell’istruzione SET possono es- 
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Valore X Apple 


Xa2 Yx3 
Xa2+1 Ya3 
Xa2 Ya3+1 
Xa2+1 Ma3t1 
Xa2 Ya3+2 
XKa2+1 Ya3+2 


Valore Y Apple 


Posizione 


in alto a sinistra 
in alto a destra 

in centro a sinistra 
in centro a destra 
in basso a sinistra 
in basso a destra 


Tav. 2. Punti sull’Apple che compongono un blocco grafico TRS-80 


l’Apple. Le coordinate X+2, Y+3 
corrispondono al punto in alto a si- 
nistra del reticolo Apple 2x3 di 
quel punto. Vedi nella tavola 2 la 
lista dei sei punti sull’ Apple che 
compongono quel punto. 

Se dovete riempire l’intero bloc- 
co, eseguite le istruzioni 


HPLOT X=+2,Y+3 TO X«2,Y+3+2 
HPLOT X#2+1,Y+3 TO 
Xa2+1,Y*3+2 


È una buona idea scrivere queste 
istruzioni in una subroutine. Quin- 
di, ogni volta che appare un’istru- 
zione tipo SET(X,Y) nella vostra 
lista, potete semplicemente sosti- 
tuirla con le istruzioni 


X=2: Y=3: GOSUB 10000 


(se avete scritto la subroutine pre- 
cedente dalla linea 10000 e avete 
aggiunto RETURN). 

Tracciare uno dei 64 caratteri 
grafici del TRS-80 è molto sempli- 
ce. Prima consultare l’elenco per 
vedere quali dei sei blocchi grafici 
deve essere tracciato. 

Quindi applicate le formule del- 
l'elenco e HPLOT le coordinate 
appropriate. 

Per esempio, supponiamo di vo- 
ler stampare il carattere 179. Esa- 


minando l’elenco, possiamo vedere 
che è composto dai seguenti punti 
della matrice 2x3: in alto a sini- 
stra, in alto a destra, in basso a si- 
nistra e in basso a destra. 

Se desideriamo tracciarlo alle 
coordinate TRS-80 (50,100), do- 
vremo eseguire le seguenti istruzio- 
ni: 


HPLOT 50+2+1,100+3+2 
HPLOT 50+2, 100+3+2 
HPLOT 50+2+1,100+3 
HPLOT 50+2,100+3 


Conversione dal PET all’ Apple 


Convertire la grafica del PET 
per l’Apple può essere eccessiva- 
mente frustrante se sono usati gli 
speciali caratteri grafici del PET. 

Produrre questi carattere sul- 
l’Apple è spesso confrontabile con 
il produrre i caratteri speciali del 
modello III. In molti casi è consi- 
gliabile riscrivere l’intero algoritmo 
di programma in modo che sia più 
adatto all’ Apple. 

Se i caratteri grafici usati sul 
PET sono tali che vi è un carattere 
simile nell’Apple, la conversione è 
molto semplice. Lo schermo del 
PET è composto di 25 righe da 40 
caratteri ognuna, e lo schermo del- 
l’Apple contiene 24 righe da 40 ca- 
ratteri ognuna. 


Carattere controllo cursore PET 
(HOME) 

(SHIFT HOME) 

(CRSR giù) 

(CRSR su) 

(CRSR destra) 

(CRSR sinistra) 


Istruzione locazione cursore Apple 


VTAB 1: HTAB 1 
HOME 

VTAB PEEK(37)+2 
VTAB PEEK(37) 
HTAB PEEK(36)+2 
HTAB PEEK(36) 


Tav. 3. Corrispondenza tra PET e Apple per il posizionamento del cursore 


Il problema principale nella con- 
versione tra PET e Apple è sosti- 
tuire con le appropriate istruzioni 
VTAB e HTAB i caratteri di movi- 
mento del cursore del PET. Gene- 
ralmente lo si può fare direttamen- 
te usando la tavola 3. 

Ora, supponiamo di avere un 
programma per un PET che azzera 
lo schermo e traccia una linea sulla 
quinta riga dello schermo. Il pro- 
gramma dovrebbe avere una istru- 
zione 


PRINT“(CLEAR)(CRSR giù) 
(CRSR giù) (CRSR giù)...” 


La traduzione per l’ Apple sareb- 
be 

HOME 

VTAB PEEK(37)+2 
VTAB PEEK(37)+2 
VTAB PEEK(37)+2 
VTAB PEEK(37)+2 
PRINT“...” 


Si noti che i caratteri di posizio- 
namento del cursore nel PET fan- 
no parte dell’insieme dei caratteri e 
quindi vengono stampati come ele- 
menti di una stringa. L’Apple inve- 
ce, ha istruzioni di movimento del 
cursore che non possono essere 
usate all’interno di istruzioni 
PRINT. 

Sia il PET che l'Apple hanno la 
possibilità di scrivere in modo 
“inverso”. Sul PET ci sono due ca- 
ratteri che, ancora, devono essere 
usati all’interno di un PRINT. Sul- 
l’Apple ci sono due istruzioni sepa- 
rate per controllare questa funzio- 
ne. Si veda la tavola 4. 

I metodi usati dal PET e dal- 
l’Apple per “invertire” il video so- 
no molto simili. Eseguendo l’op- 
portuna istruzione tutto l’output 
successivo viene visualizzato in mo- 
do inverso. C'è però una piccola 
differenza. L’istruzione INVERSE 


Carattere PET 


RVS INVERSE 


OFF NORMAL 


Istruzioni Apple 


Funzione 


Tutti i successivi caratteri 
vengono stampati in campo 
inverso 

Annulla ogni istruzione di 
inversione dei caratteri 


Tav. 4. Corrispondenza tra PET e Apple per la scrittura in campo inverso 


dell'Apple può essere cancellata 
solo da una istruzione NORMAL. 
Sul PET, il modo inverso può esse- 
re cancellato da un (OFF) (SHIFT 
e RVS) o da un RETURN. 

Supponiamo che il programma 
PET che state traducendo abbia l’i- 
struzione 


PRINT“(RVS)QUESTO È IN 


CAMPO INVERSO 
(SHIFT RVS) MENTRE 
QUESTO NO” 


L'istruzione Apple equivalente è 


INVERSE PRINT*“QUESTO È 
IN CAMPO INVERSO”: 

NORMAL PRINT“MENTRE 
QUESTO NO” 


Conversione dall’ Apple al TRS-80 


Quando possibile, la conversione 
da Apple a TRS-80 è molto sempli- 
ce. La maggior parte dell’output 
scritto può essere trasferito nel 
TRS-80, ma poiché lo schermo del 
TRS-80 ha solo sedici righe, men- 
tre quello dell'Apple ne ha venti- 
quattro, in alcuni casi lo schermo 
deve essere compresso o modifica- 
to in qualche altro modo. 

Solo due dei tre “modi” possono 
essere simulati sul TRS-80. L’out- 
put ottenuto con PRINT (VTAB, 
HTAB, ecc.) può essere convertito 
facilmente, così come la grafica in 
bassa risoluzione. Il TRS-80 non 
ha tuttavia, la capacità di riprodur- 
re la grafica ad alta risoluzione del- 
l'Apple. 

Se si deve convertire grafica ad 
alta risoluzione per il TRS-80 si de- 
ve usare la grafica standard del 
TRS-80, perdendo una parte consi- 
derevole di risoluzione. 


Conversioni grafiche 


L’unico potenziale problema nel 
convertire un programma Apple 
per il TRS-80 è nel localizzare l’i- 
struzione PRINT@ equivalente 
per un dato insieme di locazioni 
HTAB e VTAB. 

Per ogni coppia di valori X e Y, 
l'istruzione Apple VTAB X: 
HTAB Y è equivalente all’espres- 
sione TRS-80 


PRINT@(X+64)+Y—65 


Usando questo metodo, tuttavia, 
vi è il problema che la formula non 
può essere usata in una situazione 
in cui X è maggiore di 16. L’unica 
soluzione a questo problema sta 
nel ridisegnare lo schermo in modo 
che vengano usate solo 16 righe di 
testo. 

Un altro elemento nel convertire 
un programma Apple al TRS-80 è 
l’azzeramento dello schermo. Sem- 
plicemente, si sostituisce ogni HO- 
ME del programma Apple con un 
CLS nel programma TRS-80. 


Il TRS-80 non ha la 
capacità di riprodurre 
la grafica ad alta 
risoluzione dell’ Apple. 


La grafica a bassa risoluzione 
dell’Apple può essere duplicata 
molto facilmente sul TRS-80. Poi- 
ché la grafica a bassa risoluzione 
contiene al massimo una matrice 
40x48 e lo schermo del TRS-80 ha 
una matrice 128Xx48, questa parti- 
colare conversione è immediata. 

Quando incontrate una istruzio- 
ne GR, sostituitela con CLS. 

Quindi, semplicemente sostituire 


64 


Caratteri controllo cursore PET 


(HOME) 
(CRSR giù) 
(CRSR su) 
(CRSR destra) 
(CRSR sinistra) 


Codice ASCII TRS-80 


28 
26 
27 
25 
24 


Tav. 5. Corrispondenza tra PET e TRS-80 per il posizionamento del curso- 


re 


ogni PLOT X,Y con SET(X,Y). I 
valori di X e Y non cambiano in 
questo caso. 

Il colore non può essere ripro- 
dotto su TRS-80, e dunque l’istru- 
zione COLOR= deve essere igno- 
rata, eccetto quando il colore è 
messo a 0 o comunque uguale al 
colore di fondo. In questo caso, le 
successive istruzioni PLOT devono 
essere sostituite con istruzioni RE- 
SET per cancellare i blocchi grafici 
alle coordinate opportune. 


Conversione dal PET al TRS-80 


Convertire un programma PET af- 
finché giri su un TRS-80 è simile a 
convertirlo per girare sull’Apple. 
Lo schermo di 25 righe del PET 
viene però ridotto a 16 righe, non a 
24. Inoltre, molti dei caratteri spe- 
ciali PET non hanno un parallelo 
sul TRS-80. Se non si trova un so- 
stituto adatto, la sola soluzione è 
tracciare i singoli punti del pro- 
gramma PET ed escogitare un al- 
goritmo per usare le istruzioni SET 
del TRS-80 o per stampare con 
PRINT gli speciali caratteri grafici. 

Convertendo da PET a TRS-80, 
probabilmente la maggiore confu- 
sione è data dai caratteri di con- 
trollo del cursore del PET. Tutta- 
via, questi caratteri di controllo, 


hanno equivalenti diretti sul TRS- 
80, come indica la tavola 5. 

I codici del TRS-80 vanno usati 
con la funzione CHR$ e scritti con 
PRINT. (Assicuratevi di aver mes- 
so un punto e virgola dopo la 
PRINT). Quindi, l’equivalente del- 
l’istruzione PET 


PRINT“(HOME)(CRSR giù) 
(CRSR destra) TEST” 


sarà 


PRINT CHR$(28);CHR$(26); 
CHR$(25); “TEST” 


Un carattere PET non ha un co- 
dice ASCII sul TRS-80: l’azzera- 
mento dello schermo (sul PET è 
(SHIFT HOME)) deve essere so- 
stituito con CLS sul TRS-80. 


Conversione dall’ Apple al PET 


Convertire un programma dal- 
l'Apple al PET è, in molti casi, 
quasi impossibile. Le capacità gra- 
fiche del PET operano in maniera 
molto differente da quelle di molti 
altri computer. Il maggior proble- 
ma in questa conversione è che con 
il PET non vi è la possibilità di ac- 
cedere ad una particolare posizione 
dello schermo direttamente con un 
insieme di coordinate come le 
istruzioni Apple VTAB e HTAB o 


l'istruzione TRS-80 PRINT@. Il 
miglior consiglio che si possa dare 
a coloro che possiedono un PET è 
di riscrivere la routine grafiche dei 
loro programmi in modo da ripro- 
durre la grafica in modo efficace. 

C’è un modo di creare una su- 
broutine per simulare le istruzioni 
VTAB e HTAB, ma generalmente 
non è consigliabile a meno che non 
si stia usando una grafica relativa- 
mente semplice. Può essere usato 
solo per la grafica con PRINT, 
quella a bassa e ad alta risoluzione 
non può essere tradotta diretta- 
mente. 

Essenzialmente, dobbiamo pri- 
ma portare il cursore in alto a sini- 
stra (HOME) quindi stampare tan- 
ti (CRSR giù) quanto è l’argomen- 
to di VTAB meno 1 e tanti (CRSR 
destra) quanto è l’argomento di 
HTAB meno 1. Quindi, l’istruzio- 
ne 


VTAB 4 

HTAB 4 _ 
PRINT“QUESTO È UN TEST” 
può essere convertita in 


PRINT“(HOME)(CRSR giù) 
(CRSR giù)(CRSR giù) 
(CRSR destra)(CRSR 
destra)(CRSR destra) 
QUESTO E UN TEST” 


Con un ciclo FOR-NEXT, que- 
sto si può fare in una subroutine. 
Si tratta di un modo molto primiti- 
vo di convertire una istruzione 
VTAB, ma è una possibilità per 
programmi grafici relativamente 
semplici. 

L’altra necessaria conversione 
tra Apple e PET è l’azzeramento 
dello schermo. Sul PET l’istruzione 
equivalente a HOME è 
PRINT“(SHIFT HOME)”. 


Conversione dal TRS-80 al PET 


Convertire un programma da 
TRS-80 è sostanzialmente la stessa 
cosa di convertire un programma 
da Apple a PET. È molto difficile 
da fare, e i risultati non sono così 
efficienti se si usa lo stesso algorit- 
mo. 

L'istruzione di azzeramento del- 
lo schermo su TRS-80 è CLS. De- 
ve essere sostituita con un 
PRINT“(SHIFT HOME)”. 

Se è assolutamente necessario 
convertire un programma TRS-80 
per il PET direttamente, lo si può 
fare. Tuttavia, come per l'Apple, 
solo il testo può essere trattato di- 
rettamente. Questo significa che 
un programma grafico che usa 
istruzioni SET non può general- 
mente venir convertito. Ò 

Le istruzioni PRINT@ sono soli- 
tamente il mezzo principale di pro- 
dure grafica sul TRS-80 senza 
Istruzioni SET, L'indirizzo di 
PRINT@ deve dapprima essere 
convertito nelle equivalenti coordi- 
nate Orizzontale e verticale. Per 


SOFTWARE WANTED 


Se sei un programmatore 
interessato a far fruttare la tua inventiva, scrivici 
Siamo interessati a software di giochi, 
utilities, programmi applicativi 


COMPLETO SOFTWARE 
Via Bonporti 32 
35100 Padova 


«ogni indirizzo A di PRINT@A, la 


corrispondente coordinata Y è IN- 
T(A/64)+1 e la coordinata X è 
A+1-INT(A/64)+64. 

Una volta calcolate queste coor- 
dinate per spostare il cursore, può 
essere eseguita la procedura sopra 
descritta per la conversione da Ap- 
ple a PET. 


Le tecniche di conversione grafi- 
ca qui descritte non esauriscono 
tutti i possibili metodi di conversio- 
ne, né è stata descritta ogni istru- 
zione grafica di ogni computer di 
cui si è parlato. Quello che si è ten- 
tato di fare è familiarizzare il letto- 
re con i principi grafici basilari di 
ogni computer e fornire qualche in- 
dicazione su come affrontare il 
processo di conversione. 

La conversione grafica è senza 
dubbio un obiettivo complesso; 
una volta compreso come un com- 
puter funzioni, la creatività del 
programmatore influenzerà la sua 
tecnica di conversione più di ogni 
altra cosa. 

(1 
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Compattezza, concisione, chiarezza e notevoli potenzialità scientifiche, 
oltre a prestarsi ottimamente per calcoli gestionali e ad essere usato 


anche con i microcomputer, sono le caratteristiche che decre- 


le organici, in 
e la loro consulta- 


$ 5Ò la Semplice ed agevole. 

È unto di quanto si ap- 

toi = ‘è posto all'inizio e non 
i 


‘al capitolo, perchè il let- 
sa subito avere un metro 
lativo con cui verificare passo- 
d il suo apprendimento. E poi, ci 
consigli, problemi, esercizi affin- 
bro sia “usato” e non letto, perchè 
ì sapere come si usa un'istruzione 
bsto che conoscerne le differenze se- 
he tra linguaggio e linguaggio. Con un 
‘graduale, partendo senza alcuna corio- 
Za di programmazione, dopo circa due setti- 
dovreste conoscere abbastanza bene il 
BAL. Un buon risultato, no?! 
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Giuseppe Staluppi 


Una biblioteca per ottimizzare 


ottimizzazione di cui si parla qui è quella 
I cosiddetta combinatoria: si ha un insieme 
di variabili che devono essere determina- 
te in modo da soddisfare un insieme di condi- 


zioni rendendo nel contempo massima o mini- 
ma (ottima) una funzione di tali variabili. 


Per risolvere questi problemi si possono usa-. 


re metodi analitici o metodi evolutivi. In questo 
manuale è descritta una biblioteca di program- 
mi relativi ai metodi evolutivi più classici. 

I programmi, com’è giusto, sono modulari, 
costituiscono cioè unità facilmente aggregabili 
ed usabili in base a regole comuni. Il linguaggio 
utilizzato è il Fortran, ma tutti i programmi so- 
no facilmente convertibili in Basic, per un uso 
sui personal computer. 

Un breve sguardo al contenuto: troviamo al- 
goritmi per la programmazione lineare genera- 


C. Baldissera, S. Ceri, A. Colorni 
Metodi di ottimizzazione e 


programmi di calcolo 
Milano: CLUP, 1981 


le, per quella a numeri interi, per la program- 
mazione dinamica, per i cammini sui grafi e per 
il PERT e il CPM, oltre a metodi di ricerca ge- 
nerali vincolati e non vincolati. 

Ogni libro che riporti biblioteche di program- 
mi è da considerare con estrema attenzione nel 
panorama editoriale italiano. Questo particola- 
re settore è stato infatti molto trascurato in pas- 
sato e solo recentemente sono stati pubblicati 
da alcuni editori testi di software. 


Elenco delle routine 


FIBON ricerca dell’ottimo di una funzione di una variabile in un intervallo con il metodo di Fibonacci 

AUREO ricerca dell'ottimo di una funzione di una variabile con il metodo della sezione aurea 

BISEC ricerca dell'ottimo di una funzione di una variabile con il metodo di bisezione 

NABLA ricerca dell’ottimo di una funzione di n variabili non lineare senza vincoli con il metodo del gradiente 

FLETCH ricerca dell’ottimo di una funzione di n variabili non lineare senza vincoli con il metodo di Fletcher 
Powel 

PATTER ricerca dell’ottimo di una funzione di n variabili non lineare senza vincoli con il metodo pattern 
search 

ADRAS ricerca dell’ottimo di una funzione di n variabili non lineare senza vincoli con il metodo della ricerca 
casuale adattativa 

QUADR. ricerca dell'ottimo vincolato per un funzione quadratica di n variabili 

ZOUTEN ricerca dell’ottimo vincolato per una funzione non lineare di n variabili con il metodo delle direzioni 
ammissibili 

SUMT ricerca dell’ottimo vincolato per una funzione non lineare di n variabili con il metodo della funzione 
di penalità , 

SIMPL programmazione lineare con l'algoritmo del simplesso 

REVSIM algoritmo del simplesso revisionato 

TRASPO problema del trasporto 

MAGYAR problema di assegnamento con metodo “ungherese” 

FORFUL flusso massimo in una rete 

TAGLIO programmazione lineare a numeri interi con l’algoritmo frazionario di Gomory 

BALAS programmazione lineare a variabili binarie con l'algoritmo di enumerazione implicita di Balas 

INTEG programmazione lineare a numeri interi trasformato in variabili binarie 

DINAM — programmazione dinamica 

GRAFIL cammini minimi su grafi 

GRAFLI cammini minimi su grafi 

GRAFGE cammini minimi su grafi 

PERT risolve un reticolo di progetti collegati da attività 

CPM risolve un reticolo di progetti collegati da attività 


Una biblioteca per ottimizzare 


Per soddisfare gli utenti, questi 
libri devono tuttavia avere alcune 
particolari caratteristiche: i pro- 
grammi devono essere facilmente 
“portabili”, cioè la particolare 
versione del linguaggio utilizzato 
deve essere facilmente modificabi- 
le: meglio di tutto non utilizzare 
nessuna particolare versione, ma 
un linguaggio estremamente sem- 
plificato, per esempio solo una de- 
cina di istruzioni Fortran o Basic. 

Una seconda caratteristica è la 
“modularità”. Ogni pezzo, cioè ogni 
routine, deve essere completamen- 


Guida al softuare! 
pubblicato 
sulle riviste 
italiane 
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te spiegata e commentata, deve es- 
sere chiaro quali sono gli input e 
quali gli output, quali le limitazioni 
e quali i controlli. 

In terzo luogo i programmi de- 
vono essere ben commentati e do- 
cumentati, con riferimenti precisi 
per una perfetta comprensione. 

Avendo verificato alcuni dei pro- 
grammi di questo libro, possiamo 
dire che le tre condizioni che ab- 
biamo citato sono rispettate. 

Le traduzioni dei programmi, 
per chi voglia implementarli su 
particolari calcolatori, sono parti- 


colarmente agevoli, i risultati sono 
sempre ottimi. Escluse poche ecce- 
zioni, questi algoritmi sono trasfe- 
ribili su personal computer, com- 
patibilmente con la capacità di me- 
moria a disposizione. 

Il libro ha 463 pagine e costa 
ventimila lire: ma se si considera 
che vi sono contenuti 24 program- 
mi, e che quindi il costo a pro- 
gramma è inferiore alle mille lire, 
se ne conclude che si tratta di un 
investimento che vale la pena di fa- 
re. 


Nel prossimo numero 
un eccezionale omaggio: 


Guida al software 


pubblicato 


sulle riviste italiane 


Un indispensabile fascicolo 
allegato alla rivista. 

Non perdete 
il prossimo numero! 


La guida sicura 
nel labirinto 
tecnologico. 


TechnoClub è l'organizzazione di vendita 
per corrispondenza del libro tecnico 
(principalmente elettronica e informatica) 
nonché del software applicativo. 
TechnoClub è anche il tuo consulente, la 
guida sicura per orientarsi nel labirinto 
dell'editoria tecnica, lo strumento ed il 
servizio essenziale per il numero 
crescente di persone che hanno 
compreso l’importanza della tecnologia 
nel mondo odierno. 
Libri di base e didattici per imparare a 
capire; applicativi per realizzare e colt 
proprio hobby; pratici per risolvere i 
problemi dell’attività quotidiana; di elev 
specializzazione per migliorare il proprio 
background professionale o culturale. E altri 
ancora per soddisfare ogni esigenza. 
TechnoClub offre solo il meglio della 
produzione tecnica editoriale. Per questo ha 
scelto di collaborare con qualificati editori 


italiani e soprattutto si avvale di un'equipe di TechnoClub ha instaurato rapporti di 
professionisti che esamina, seleziona e collaborazione con i più prestigiosi editori e 
propone le opere più significative e software-house stranieri, per offrire 
compiete. tempestivamente, già da quest'anno, le opere 


più innovative in lingua originale e il 
software più interessante, appena disponibili. 
Tutti possono aderire al TechnoClub, 
assicurandosi un servizio garantito, 
professionale, veloce, unico nel suo genere. 
Esamina le modalità per diventare Socio e 
considera i numerosi vantaggi che ne 
derivano. 


Techno©u)b 


i migliori libri tecnici 
e il software a casa vostra. 


> 
g x 
= e, 
Maia e: 
Cod. IHC02 Cod. IHC03 Cod. IHC04 Cod. IHC05 


dada 


Cod. IFC05 


Cod. IAK03 


Cod. IHK02 Cod. IHK03 


1. Nessun impegno di acquisto. 
| Soci non sono vincolati all'acquisto di 
un numero minimo di libri durante il pe- 
riodo di adesione al TechnoClub. Di 
conseguenza, scelta libera e nessuna 
imposizione, acquistando quello che si 
vuole, quando si vuole. 


2. Garanzia. 

| libri proposti dal TechnoClub costi- 
tuiscono sempre la versione originale e 
più aggiornata delle edizioni in com- 
mercio. 

Il TechnoClub garantisce quindi il 
contenuto e la veste tipografica origina- 
li. 


3. Convenienza certa. 
Il prezzo delle opere offerte ai Soci del 
TechnoClub è inferiore del 10% circa 
rispetto al prezzo di copertina dell’edi- 
zione in commercio. Il risparmio è per- 
ciò assicurato. 


i z80 


Cod. IGC01 


di 


Cod. IAK05 


Cod. IHK04 
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Cod. IFH02 Cod. 1FH04 


Cod. IHC06 


Cod. 1FH08 


Cod. IFHO7 
= ni o = 
Sa “a in tali 
| | 
| uo | 
Cod. IAK06 Cod. IAK07 Cod. TAK08 Cod. IAK09 
Mini IMPARIAMO 
IL PASCAL 
5 È 
Cod. IFKO1 Cod. IFK02 Cod. 1FK03 Cod. IFK04 


4. Consulenza professionale per una scel- 
ta sicura. 
La selezione delle opere proposte dal 
TechnoClub è effettuata da un gruppo 
di esperti dei singoli settori. 
Viene in tal modo offerto ai Soci un 
orientamento sicuro e garantita la mas- 
sima affidabilità nella scelta. 


5. Informazione costante. 

A tutti i soci del TechnoClub viene in- 
viata gratuitamente, ogni tre mesi, la ri- 
vista “TechnoClub Review”, che pre- 
senta l'assortimento, suddiviso per ar- 
gomento e settore specifico di interes- 
se, dei libri selezionati. Ogni libro viene 
illustrato con note esplicative che ne 
chiariscono il contenuto. 

Il Socio viene in tal modo facilitato nella 
scelta, secondo le sue specifiche esi- 
genze. 


6. Aggiornamento continuo. 
“TechnoClub Review” garantisce inol- 


. Praticità e comodità d’acqui: 


tre l'aggiornamento costante sulle novi- 
tà editoriali. 

Considerando l'evoluzione continua dei 
settori trattati, i Soci dispongono così di 
uno strumento efficace per tenersi tem- 
pestivamente aggiornati. 


. Un ulteriore e interessante vantaggio. 


| Soci ricevono anche la tessera Techno. 
Club, un documento strettamente per- 
sonale che dà diritto a sconti speciali 
sugli acquisti effettuati presso i negozi 
convenzionati, indicati sulla rivista 
“TechnoClub Review”. 


Aderire al TechnoClub significa poter 
scegliere con tranquillità a casa propria 
consultando semplicemente la rivista 
“TechnoClub Review”. 

Garanzia di libri sempre disponibili, 
nessuna perdita di tempo in lunghe ri- 
cerche... e i libri arrivano puntualmente 
a domicilio. 


Cod. IDH02 


«€ puoi già 
scegliere 
tra questi 
titoli. 


Cod. IFC02 


32 PROGRAMMI CON IL PET 
T. Rugg e P. Feldman - pag. 240, 1981 


Trentadue programmi documentati, da eseguire 
su ogni tipi di PET. Ogni programma si compone 
di: scopo - come usarlo - esecuzione di prova (con 


Cod. IAK02 


Cod. IAK01 


[lO fotografie schermo durante l'esecuzione) - lista 
Lina = = del programma, semplici variazioni - routine prin- 
Son ton i soc mo DE. N) cipali - variabili principali - progetti suggeriti. 
‘ad Cod. IHC01 L. 8.500 
32 PROGRAMMI CON L'APPLE 
T. Rugg e P. Feldman - pag. 248, 1981 
Come sopra, per ogni tipo di Apple. 
Cod. IHC02 L. 8.500 
Cod. IAK10 Cod. IAK14 Cod. IAK15 Cod. IAK16 Cod. IHK01 
32 PROGRAMMI CON IL TRS-80 
sd Re T. Rugg e P. Feldman - pag. 238, 1981 
po tuzIOne AL pa o Come sopra, per il TRS-80. 
EASC PORSI FE Cod. 1HC03 L. 2.500 
<S RRSGRARAIONE 
\ IMPARATE IL BASIC CON IL PET 
dd H.D. Peckham - pag. 245, 1981 
——— A Un corso di autoistruzione per chi desidera impa- 
Tee = cr: [=] rare il BASIC su un PET. Con esempi ed esercizi, 
partendo dai concetti più semplici, si arriva a pro- 
grammare il PET, sfruttando tutte le possibilità 
Cod. IFK05 Cod. IDK01 Cod. IDK02 Cod. IDK03 Cod. 1IK01 Cod. IHC04 L. 8.500 


Come diventare 
socio 


Per diventare Socio è sufficiente scegliere tra 
queste due semplici possibilità: 


A) Versare l'importo di L. 8.000 quale quota di 
adesione. 

B) Effettuare un primo acquisto di libri, per un 
importo minimo di L. 30.000. 

In questo caso non si versa la quota di adesione. 
Per acquisti inferiori a L. 30.000 va aggiunta la 
quota di adesione di L. 8.000. 


In ambedue i casi, i/ Socio ha diritto a ricevere 
gratuitamente la rivista "TechnoClub Review" per 
ben due anni e la tessera personale con validità 
per lo stesso periodo. 

Il Socio che nel corso dei due anni di adesione 
effettuerà acquisti di libri per un importo di alme- 
no L. 60.000 avrà diritto al rinnovo automatico e 
gratuito dell'iscrizione al TechnoClub per un 
altro anno, conservando quindi tutti i vantaggi 
esclusivi 


PI 

Associati 

subito Spedisci oggi stesso 
(o) 


la cedola di adesione 


CEDOLA DI ADESIONE da compilare e spedire in busta chiusa a 
TechnoClub - Via Rosellini, 12 - 20124 Milano 


Sono interessato principalmente a Libri di ... 
DElettrotecnica 
DElettronica e dispositivi elettronici 


A) Sola adesione con versamento di L. 8.000 


Si, aderisco al TechnoCiub scegliendo la seguente formula 
o 
© B) Adesione con acquisto dei seguenti libri per un importo 


totale di L.............. . 4 L. 1.500 per contributo fisso DEIlettronica pratica ed hobbystica 
per spese di spedizione UMisure elettroniche 
DRadioriparazioni - TV Service 
COORTE 204 DEquivalenze dei semiconduttori 
CGodlreceniiad Cod. DPersonal computer e calcolatrici 


OLinguaggi e metodi di programmazione 
Dinformatica 

Dinformatica e organizzazione aziendale 
UComunicazioni: elementi e sistemi 
Microprocessori 

USaggistica eletironica e informatica 
DENergie alternative 

USistemi di regolazione e controllo 
DAItri (specificare) ........ er 


© Contanti o francobolli allegati 
© Assegno allegato n° .. 


Banca 


D Ho spedito l'importo a mezzo vaglia postale 


© Ho versato l'importo sul ccp n° 19445204 intestato a 
TechnoClub - Milano 


D Pagherò in contrassegno al postino al ricevimento dei volumi 


(valido solo per la formula B) ve gaise 
Sono interessato anche a libri in lingua 


originale ... 


NOM: sorridi darai rana 
Dinglese D Francese DD Tedesco 
IMOGNOMEt ira .. Sono interessato a Software per ... 
ì D Apple 
VIR screen DAtari 
a 5 Commodore 
CI carino Cap OSinclair 


OTandy Radio Shack 


Cod. Fiscale (per le aziende) DAIIri (specificare) 


Data ... Firma . 


»..2€ puoi già 
scegliere 
tra questi 
titoli. 


INTERVISTA SUL PERSONAL COMPUTER - 
HARDWARE 


R. Didday - pag. 244, 1981 

Seicento domande e risposte sul mondo dei per- 
sonal computer. 

Questo volume, dedicato all'hardware, contiene 
un'introduzione, sotto forma di intervista, ai com- 


PUISE in generale e ai microprocessori in partico- 
lare. 


Cod. IHC05 L. 8.500 


INTERVISTA SUL PERSONAL C. pe 
SOFTWARE SMPUIER 


A. Didday - pag. 200, 1981 


Centinaia di domande e risposte sul mondo dei 
personal computer. Questo secondo volume, de- 
dicato al software, contiene un'introduzione, sot- 
to forma di intervista, alla programmazione dei 


computer in generale e dei microprocessori in 
particolare. 


Cod. IHC06 L. 8.500 


ASTRONOMIA CON 
TASCABILE IL CALCOLATORE 


A. Jones - pag. 307, 1981 


I libro indica come usare i moderni calcolatori 
tascabili per risolvere diversi problemi astronomi- 
ci intempo minimo. Vengono introdotti metodi sia 
Per logica algebrica che per logica polacca inver- 


Appendici con 
calcolatori con 
Cod. IHC07 


57 programmi documentati per 
e senza schedine magnetiche. 


L. 12.000 


LE SCIENZE CON I 
TASCABILE IL CALCOLATORE 


D.R. Green e J. Lewis - pag. 398, 1980 


Il libro tratta le varie funzioni di ibili sui 

oi ioni disponibili sui calco- 
latori dimostrando la possibilità di applicazione a 
Numerosi problemi di fisica, chimica, biologia, 
matematica, ingegneria, con diversi esempi svolti 


e numerosi problemi presi d; i i 
‘alle scien: 
lettore deve svolgere. 030 


Cod. IHC08 L. 9.900 


MATEMATICA COI 
TASCABILE IN IL CALCOLATORE 


P. Henrici - pag. 233, 1980 


35 programmi scritti per l'HP-33E e per l'i 

che implementano algoritimi di teoria ‘dei numeri 
soluzioni di equazioni, teoria della stabilità alge: 
brica, analisi delle serie di potenze, integrazionee 
funzioni speciali, completati dai diagrammi di 
flusso e dalle istruzioni operative. 


Cod. IHC09 L. 13.950 


IMPARIAMO A PROGRAMMARE 
IN BASIC CON IL PET/CBM 
A. Bonelli - pag. 180, 1981 


Un corso didattico di programmazione che dalle 
premesse generali arriva alle frasi BASIC, ai con- 
cetti di stringhe, al trattamento dei file, all'uso dei 


floppy disk, alle norme operative, al DOS, sino al 
linguaggio macchina. 


Cod. IFCO1 L. 9.000 


IMPARIAMO A PROGRAMMARE 
IN BASIC CON IL VIC/CBM 
A. Bonelli - pag. 176, 1981 


Un manuale che inizia i principianti alla program- 
mazione in BASIC del VIC20, privilegiando l'a- 
spetto pratico, per imparare nel frattempo che 
cos'è un programma. 


Cod. IFC02 L. 9.900 


GUIDA AL SINCLAIR ZX81 - ZX80 
e NUOVA ROM 
R. Bonelli - pag. 264, 1982 


Vengono confrontati i tre calcolatori, che presen- 
tano notevoli differenze nel sistema di gestione e 
nel BASIC utilizzato, con considerazioni sulla loro 
zialità e approfondimenti su argomenti spe- 
rasformazione dei programmi da un calco- 
latore all'altro, sistema operativo, gestione dei file, 
linguaggio macchina. 
Cod. IFC03 


L. 14.500 


DAI - MANUALE DEL MICROCOMPUTER 
R. Bonelli C. Fiorentini - pag. 145, 1981 


La prima parte del manuale insegna l'utilizzo del 
calcolatore DAI, dai primi passi nella programma- 
zione BASIC alla spiegazione delle caratteristiche 
di questo personal. La seconda parte contiene le 
specifiche sull'implementazione del linguaggio 
BASIC sul calcolatore DAI. 


Cod. IFC04 L. 8.000 


INTRODUZIONE AL PERSONAL 
E BUSINESS COMPUTING 
R.Zaks - pag. 224, 1979 


Un testo didattico per principianti e per utenti che 
vogliono ampliare la loro conoscenza. 
Un'introduzione ai concetti, alle periferiche e alle 
tecniche fino ai metodi di valutazione per una 
scelta oculata. 


Cod. IFC05 L. 12.500 


JUNIOR COMPUTER - Vol. i 
A. Nachtmann e G.H. Nachbar - pag. 178, 1981 


Junior Computer è il microelaboratore da autoco- 
struire su un unico circuito stampato. Il sistema 
base e questo libro sono l'occorrente per l'ap- 
prendimento. Prossimamente verranno pubblica- 
ti altri volumi relativi all'espandibilità del sistema. 
Cod. IGC01 L. 9.900 


PROGRAMMAZIONE DELLO 2-80 
R. Zaks - pag. 530, 1981 


Libro ideato come testo autonomo e progettato 
sotto forma di corso per imparare la programma- 
zione in linguaggio Assembler del microproces- 
sore Z-80: dai concetti di base alle tecniche di 
programmazione più avanzate, con risoluzione 
obbligatoria di vari esercizi. 


Cod. 1FH02 L. 21.500 


PROGRAMMAZIONE DEL 6502 
A. Zaks - pag. 375, 1981 


Come sopra per il microprocessore 6502 
Cod. IFH04 L. 19.800 


USARE IL MICROPROCESSORE 
G. Giaccaglini - pag. 295, 1981 


Un testo per far capire l'utilizzo più razionale del 
microprocessore, soprattutto in relazione al con- 
trollo di impianti e processi, con diversi esempi di 
simulazione e prospettando problemi di interfac- 
ciamento hardware. 


Cod. 1FH07 L. 13.500 


APPLICAZIONI DEL 6502 
R. Zaks - pag. 214, 1981 


Tecniche e programmi per applicazioni tipiche 
del 6502. | programmi sono, con poche varianti, 
applicabili direttamente su qualunque microcom- 
puter su scheda basato sul 6502, quali il KYM, il 
SYM e I'AIM 65 e altri e consentono al lettore 
alcune realizzazioni pratiche. 


Cod. IFH08 L. 12.000 


INTRODUZIONE AI MICROCOMPUTER 
VOL. 0 IL LIBRO DEL PRINCIPIANTE 
A. Osborne - pag. 240, 1980 


Una visione complessiva su calcolatori ed elabo- 
ratori, con concetti generali e terminologia di ba- 
se per capire la tecnologia usata. Vengono illu- 
strate le singole parti del sistema, con le possibili- 
tà di espansione e componenti accessori. 

Cod. IFH11 L. 12.500 


INTRODUZIONE AI MICROCOMPUTER 
VOL. 1 IL LIBRO DEI CONCETTI 
FONDAMENTALI 

A. Osborne - pag. 321, 1980 


Il libro presenta la struttura logica fondamentale 
su cui sono basati i sistemi a microcomputer. 
Usando i concetti comuni a ogni sistema a micro- 
processore, viene illustrata l'architettura, la pro- 
grammazione, le possibilità e l'operatività di un 
microcomputer, con un set finale ipotetico di 
istruzioni per la simulazione delle possibili situa- 
zioni reali in cui si verrà a trovare con i vari micro- 
processori. 


Cod. IFH12 L. 14.400 


MICROPROCESSORI 8080 e BUS MMS-8 
a cura di L'EMMECI - pag. 160, 1981 


Un testo di "consulenza" con caratteristiche di- 
dattiche per chi ha già una conoscenza di base su 
circuiti logici, algebra di Boole e aritmetica bina- 
ria. Inteso come manuale commentato del micro- 
processore 8080 e del bus adottato presso il labo- 
ratorio di microcalcolatori del Politecnico di Mila- 
no. Si pone come riferimento per chi programma 
nel linguaggio Assembler 8080. 


Cod. IDH02 L. 5.400 


INTRODUZIONE ALL'APL E ALLE 
SUE APPLICAZIONI 
C. Camerata - pag. 266, 1980 


Il linguaggio di programmazione APL si basa su 
funzioni logico:matematiche di tipo generale. 
Adatto quindi ad applicazioni in vari settori, è sta- 
to implementato su più sistemi per tutti i livelli di 
elaboratori. Il libro si prefigge lo scopo di fornire 
agli utenti una conoscenza generale di questo 
linguaggio. 


Cod. IAK01 L. 10.800 


COME PROGRAMMARE CON 
IL FORTRAN 


P. Ridolfi/H. Coen - pag. 148, 1980 


Una guida allo studio del Fortran, concepita con 
intenti prevalentemente didattici, che pone in gra- 
do di scrivere e capire semplici programmi utiliz- 
zando questo “linguaggio simbolico”, particolar- 
mente adatto per agevolare gli scienziati ei tecnici 
all'impiego dell'elaboratore elettronico. 


Cod. IAK02 L. 5.400 


IL FORTRAN - TEORIA ED ESERCIZI 
P. Ridolfi - pag. 168, 1981 


Viene descritto il complesso di regole che costi- 
tuiscono la grammatica del Fortran, con abbon- 
danti esemplificazioni pratiche, onde acquisire 
una graduale e completa padronanza del linguag- 
gio. Non si richiede al lettore una conoscenza 
approfondita degli elaboratori elettronici. 

Cod. IAK03 L. 4.950 


ESERCITAZIONI DI ASSEMBLER 
E. Vitale/A. Hernandez - pag. 134, 1981 


Una raccolta di 12 esercizi di crescente difficoltà, 
di ognuno dei quali viene dato l'enunciato, il dia- 
gramma a blocchi e la soluzione; quest'ultima co- 
stituita dalle liste di compilazioni integrali per 
‘ogni problema enunciato. 


Cod. IAK04 L. 4.950 


COME PROGRAMMARE CON IL PL/1 
G. Romano - pag. 205, 1982 


Ilvolume presenta le caratteristiche più importan- 
ti del linguaggio PL/1, che può definirsi un ibrido 
tra i linguaggi per utenti scientifici e quelli per 
utenti commerciali. 

Con il ricorso ad esempi esplicativi, si pone come 
guida per lo studio autodidattico o anche guidato 
del PL/1. 


Cod. IAK05 L. 7.200 


COME FARE | DIAGRAMMI A BLOCCHI 
A.C. Wright - pag. 84, 1981 


Con un'abbondante documentazione di esempli- 
ficazioni, il libro si propone l'agevole assimilazio- 
ne della tecnica della diagrammazione a blocchi 
attraverso numerosi esercizi da svolgere per pro- 
prio conto. 


Cod. IAK06 L. 4.500 


L'ASSEMBLER 
E. Vitale - pag. 172, 1981 


L'opera, rivolta a chi abbia già qualche conoscen- 
za di programmazione, illustra il flessibile lii 
guaggio Assembler, esponendo le varie istruzioni 
e spiegandone il significato, le modalità d'uso e i 
casi in cui possono rivelarsi utili o necessarie. 

Cod. IAK07 L. 6.750 


COME PROGRAMMARE CON I'RPG | - 
RPG li - RPG Ill 
A.C. Wright - pag. 266, 1981 


Nella prima parte del testo viene descritto l'RPG|: 
la sua logica, l'uso di unità periferiche facili da 
gestire, le maschere di stampa, ecc. Nella secon- 
da e terza parte vengono descritte le istruzioni 
aggiuntesi nelle più recenti versioni di questo lin- 
guaggio: l'RPG Il e il compilatore RPG III. 

Cod. IAK08 L. 10.800 


COME PROGRAMMARE CON IL COBOL 
G. Sarri - pag. 129, 1982 


L'opera espone le regole da seguire per redigere 
un programma in Cobol, con numerose esemplifi- 
cazioni e si propone di porre il lettore in grado di 
scrivere programmi in Cobol e di capirli. 


Cod. IAK09 L. 4.500 


PROGRAMMAZIONE DEGLI 
ELABORATORI ELETTRONICI 
G. Bertoldi - pag. 286, 1982 


La prima parte illustra i principi generali dell'ela- 
borazione automatica dei dati, le caratteristiche e 
il funzionamento degli elaboratori e i problemi di 
programmazione. La seconda parte è dedicata 
all'analisi (studio e definizione dei problemi da 
svolgere); la terza parte illustra la tecnica di stesu- 
ra dei diagrammi a blocchi. Segue capitolo sul 
Cobol e uno sui sistemi operativi, più glossario in 
appendice. 


Cod. IAK10 L. 7.200 


PRINCIPI DI PROGETTAZIONE 
DEI COMPILATORI 
D. Gries - pag. 566, 1980 


Il volume descrive le tecniche utilizzabili nella 
scrittura di compilatori per linguaggi ad alto livel- 
lo, quali il Fortran ed il PL/1, illustrando teoria ed 
aspetti pratici connessi con tale scrittura. 

Cod. IAK14 L. 26.100 


IL BASIC - TEORIA ED ESERCIZI 
E. Spoletini - pag. 298, 5° ediz. 1982 


Il volume, rivolto anche ai “non addetti ai lavori", 
presenta le caratteristiche del linguaggio BASIC. 
L'impostazione didattica si prefigge di far appren- 
dere agevolmente il linguaggio per gradi. Quasi 
tutti gli esercizi, differenziati come argomenti e 
grado di difficoltà, sono corredati da diagrammi a 
blocchi. 


Cod. IAK15 L. 10.800 


IL COBOL - TEORIA ED ESERCIZI 
E. Spoletini - pag. 396, 1982 


La prima parte dell'opera espone gli elementi per 
scrivere un programma di media difficoltà; nella 
seconda parte vengono trattati problemi relativi 
alle tabelle e ai flussi organizzati in modo non 
sequenziale. Ogni capitolo è corredato di nume- 
rosi esempi ed esercizi. 


Cod. IAK16 L. 13.500 


IL PROGETTO DEI MICROCOMPUTER: 
SOFTWARE 
C.A. Ogdin - pag. 247, 1981 


Vengono esposte tecniche aggiornate, tra cui la 
programmazione strutturata, con diversi esempi 
di progettazione software che utilizza una nota- 
zione simile al Pascal. Viene dato risalto sia al 
progetto di strutture dati che di procedure struttu- 
rate. 


Cod. IHK01 L. 12.150 


PASCAL 
P.M. Chirlian - pag. 200, 1981 


Questo libro, inteso come manuale di autoistru- 
zione o libro di testo in un corso, per chi non ha 
esperienza di calcolatori o programmazione, pre- 
senta il linguaggio Pascal che permette la "pro- 
grammazione strutturata”. Ogni capitolo si con- 
clude con una serie di esercizi. 

Cod. IHK02 L. 7.650 


MICROSOFT BASIC 
K. Knecht - pag. 150, 1981 


Un manuale di introduzione al Microsoft BASIC, 
sorto dall'esigenza di standardizzazione del BA- 
SIC per l'implementazione su una varietà di per- 
sonal computer. Viene dato rilievo alle diverse 
caratteristiche e forme che il Microsoft Basic può 
presentare e viene dato particolare risalto alla ver- 
sione implementata sul TRS-80. 

Cod. IHK03 L. 5.850 


MUSICA CON IL CALCOLATORE 
R.C. Zaripov - pag. 169, 1979 


Una monografia dedicata al problema della com- 
posizione di musica con l'aiuto di calcoli 
matematico-probabilistici, con rassegna degli 
studi svolti nel mondo sull'aiuto dei computer per 
la composizione e l'analisi della musica, oltre alle 
regole trovate dall'autore per realizzare un model- 
lo che simula l’attività di un compositore. 

Cod. IHK04 L. 6.750 


CP/M CON MP/M 
A. Zaks - pag. 309, 1982 


Il libro si prefigge di rendere agevole l'uso del 
CP/M (nelle versioni CP/M 1.4 - CP/M 2.2 - siste- 
ma operativo multiutente MP/M); il sistema opera- 
tivo progettato per semplificare l'utilizzo di un mi- 
crocomputer, disponibile su quasi tutti gli elabo- 
ratori basati su microprocessore 8080 e Z80 e su 
certi sistemi utilizzanti il 6502. 


Cod. IFK01 L. 19.800 


PROGRAMMARE IN ASSEMBLER 
A. Pinaud - pag. 153, 1982 


Il libro, destinato in particolare a chi già ha una 
buona conoscenza di un linguaggio evoluto molto 
semplice come il BASIC, fornisce i rudimenti che 


consentono di programmare in Assembler, con 
numerosi esempi pratici. Come Assembler esi- 
stente è stato scelto quello dello Z80. 


Cod. IFK02 L. 9.000 


IMPARIAMO IL PASCAL 
F. Waldner - pag. 162, 1981 


Un libro di divulgazione, incentrato sull'autoap- 
prendimento del linguaggio Pascal, con consigli, 
problemi. 

Un testo da "usare" e non da "leggere", secondo 
l'intento dichiarato dall'autore. 


Cod. IFK03 L. 9.000 


PASCAL-MANUALE E STANDARD 
DEL LINGUAGGIO 
K. Jensen/N. Wirth - pag. 179, 1981 


La prima parte è costituita dal manuale di appren- 
dimento delle regole e dei principi del Pascal (ma- 
nuale utente); la seconda, dalla descrizione dello 
standard del linguaggio. Serie di tavole contenen- 
ti la definizione del Pascal attraverso il BNF e 
anche tramite le carte sintattiche. 


Cod. IFK04 L. 9.000 


INTRODUZIONE AL BASIC 
P. Le Beux - pag. 314, 1981 


Un corso rivolto ai principianti, che illustra tutti gli 
aspetti del BASIC su differenti sistemi. Con nume- 
rosi esempi, il lettore può verificare con immedia- 
tezza il reale apprendimento raggiunto. 


Cod. IFK05 L. 16.500 


METODI DI OTTIMIZZAZIONE 
E PROGRAMMI DI CALCOLO 
C. Baldissera/S. Ceri/A. Colorni - pag. 468, 1981 


Vengono esposte le caratteristiche di un gruppo 
di programmi (attualmente esistente presso il 
Centro di Teoria dei sistemi del CNR), chesi com- 
pone di alcuni classici algoritmi strutturati per 
privilegiare la semplicità d'uso, l'uniformità e mo- 


dularità fra i vari programmi. Il linguaggio usato è 
il Fortran. 
Cod. IDK01 L. 18.000 


PASCAL - DAL MICROPROCESSORE AL GRAN- 
DE ELABORATORE 

G. Cioni/S. Crespi Reghizzi/M. Moscarini 

pag. 194, 1981 


Il testo, rivolto a chi già conosce la programma- 
zione del calcolatore, descrive nella prima parte il 
linguaggio Pascal standard nelle sue varie parti, 
con 40 esempi di programmi, collaudati sul calco- 
latore. 

Nella seconda parte, dopo un cenno alle tecniche 
di compilazione, si presentano le schede tecniche 
di alcune versioni del Pascal disponibili per elabo- 
ratori di vasta diffusione. 


Cod. IDK02 L. 7.200 


LISP - LINGUAGGIO E METODOLOGIA DI PRO- 
GRAMMAZIONE 
G. Gini, M. Gini, G. Guida - pag. 204, 1981 


Con molti esempi di diversa complessità nel testo 
vengono illustrati tutti gli aspetti del linguaggio 
LISP, oggi diffuso anche su mini e personal com- 
puter, utilizzato per progettare sistemi di intelli- 
genza artificiale e per la soluzione di problemi di 
elaborazione non numerica. 


Cod. IDK03 L. 8.100 


PROGRAMMARE IN FORTRAN 
375 PROBLEMI RISOLTI 
S. Lipschutz/A. Poe - pag. 314, 1980 


Lo scopo del libro è di presentare il linguaggio 
Fortran e di insegnare a risolvere dei problemi con 
esso. Oltre alla sintassi, viene insegnato come 
scrivere dei programmi Fortran con chiarezza, in- 
sistendo sia sulle tecniche che sulle buone abitu- 
dini di programmazione. Vengono esaminati i 
principi più importanti sia del Fortran standard 
che del Fortran strutturato. 


Cod, IIK01 L. 10.800 


Scegli tra centoventisette 
combinazioni d’abbonamento. 
Tutte vantaggiose. 


10 numeri 

L. 30.000 
anziché L. 35.000 
estero L. 48.000 


prc 


ri 


11 numeri 11 numeri 22 numeri 
L. 31.000 L. 26.500 L. 35.000 
anzichè L. 38.500 anziché L. 33.000 anzichè L. 44.000 
estero L. 49.600 estero L. 42.400 estero L. 56.000 
4 numeri 11 numeri 10 numeri 
L. 6.500 L. 26.000 L. 24.000 
anzichè L. 8.000 


anzichè L. 33.000 
estero L. 42.000 


estero L. 10.400 


anziché L_ 30.000 
estero L. 38.400 


Come calcolare da soli le altre 120 combinazioni di abbonamento .. 


abbonamento a 2 riviste. Prezzo Scontato 1' rivista + Prezzo Scontato 2° rivista - L. 2.000 
abbonamento a 3 riviste. P.S_1'.4 P.S.2' 4 P.S 3'- L. 4.000 


abbonamento a 4 riviste. P.S.1'-4 P.S 2°} P.S.3'+ P.S. 4'- L 8.000 
abbonamento a 5 riviste. P.S. 1° 4 P.S 24 P.S.3' 4 P.S.4'4 P.S 5'-L 11.500 
abbonamento a 6 riviste. PS. 1'| PS.2' | PS 3'4P.S4'4PS 54 P.S76'- L. 15.000 
abbonamento a tutte e 7 le riviste L. 149.000 anzichè L. 226.500 estera L. 239.000 
Per l'estero l'importo risultante va aumentato del 60% (moltiplicare 1,6) 


Esempio: Informatica Oggi + Personal Software — Italia 26.500 + 30.000 — - 2.000= 54.500 — 
Estero 54.500 x 1,6 = 87.200 


Attenzione: per i versamenti utilizzate il c.c.p. n° 11666203 intestato a Gruppo Editoriale 
Jackson - Milano. Oppure inviate un assegno al nostro ufficio abbonamenti 


GRUPPO DITORIALE JACKSON 
10 ABBONAMENTI 
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o 


v000000° 


Chi è stato ragazzo nei primi anni sessanta si ricorde- 
rà senz'altro di questo gioco, che in quegli anni ebbe 
una diffusione paragonabile a quella che il cubo di Ru- 
bik ha ai giorni nostri. 

Come è noto il gioco, che si esegue su di una scac- 
chiera 4x4, consiste nel riordinare su quattro file i nu- 
meri dall'uno al quindici, usufruendo per gli spostamenti 


dell'unica casella libera sulla scacchiera. Si può giocare 
come “solitario” oppure si possono organizzare sfide 
tra più giocatori, usufruendo del controllo del calcolato- 


| re che, mossa per mossa, aggiornerà i vari “record”. 


Qui a fianco trovate la versione PET/CBM valida per 
tutti i modelli a 40 colonne. Più avanti ci sono le versioni 
per il TRS-80 mod. | e per l'Apple Il. (| 


lc 


F(eMi:i METE CSCCEZIELICECICITICIEZICICIRIZZZZZZZZI 


commodore 


20 REM % 

30 REM * GIOCO DEL * 
40 REM * VERSIONE FET/CBM © E qn32 +, 
SO REM * x 
60 REM % FERSONAL S0F TUARE LI 
70 REM * , 
80 REM IOGGODGGGGOGUOOGOOSOROPASOGOOGO RO 
90 REM 


100 DIM N(4,4) 

110 FOR NUM=1 TO 15 
120 I=INT(RND(TI) *4+1): 
130 IF NC(I,J)<%0 GOTO 120 
140 NCI,J)=NUM: NEXT NUM 

150 FRINT CHR$(44) 

160 GOSUB 650 

170 GOSUB 580 

180 X=22: GOSUB 200 

190 FOR Y=1 TO 40: PRINT" ":s 
200 X=23: GOSUB 800 

210 FOR Y=1 TO 25 
220. X GOSUB 800 

230 INFUT"BATTI LA TUA MOSSA":M$ 

240 IF LEN(M$)<1 GOTO 270 

250 IF ASC(M$)=70 THEN END 

AL (M$): IF M>0 AND M 16 GOTO con 
22: GOSUB 800 

280 PRINT"ERRORE. USA NUMERI DA 1 A 15." 


=INT‘(FND/TI)#4+]) 


MEXI v 


FRINT" “ss: NEXT Y 


GOSUB 800 

TO 4: FOR dsl T0 4 
IF NI, J)=M GOTO 340 

NEXT: NEXT 

JJ=dJ: GOSUB S30 
GOTO 460 
JJ=d: GOSUB 
GOTO 460 
J+1: GOSUB S30 
GOTO 460 

J-1: GOSUR S30 
IF FLAG=1 GOTO 460 
X=22: GOSUB 800 

FOR Y=1 TO 3 


=22: 


3 N(II,JI)=M 

GOSUE 800 

=MOSSE+1 

GOSUE 800: FPRINTTAB(34) "MOSSE" 
PRINTTAB (35) MOSSE 


S10 X=2+J%4: GOSUB 800: PRINTT&B(7+I*5)" ": 
520 GOTO 170 
S30 FLAG= 
540 IF II<i OR II*4 OR JJ1 OR JJ+4 GOTO S70 
550 IF NCII,JJ)<>0 GOTO S70 
560 FLAG=1 
570 RETURN 
580 FOR I=1 TO 4: FOR J=i 10 4 
IF N(I,J)=0 GOTO © 
X=2+1%4: GOSUB 800 
PRINTTAB(8+1#*5-LEN(STR$(NiI,1)))}+1): 
FRINT N(1,d) 
O NEXT: FRINT: NEXT 

RETURN 
PRINT CHFR$(147) 
O FRINTTAB(9) "GIOCO DEL a s" 
FOR RIGA=4 TO 2O STEF 4 
PRINT CHR$(18) 


X=RIGA: FRINTTABCIO) 7 
FOR H=10 PRINT" * NEXT H 
PRINT: NEXT RIGA: FRINT 


FRINT CHR$ (18); 
FOR L=5 TO 19 
FRINTTAB(10)" 
O PRINTTAB(15)" ABCQO)I 
O PRINTTAR(25)" AB(3O) " 
PRINT: PRINTTAB(I) 


X=L: GOSUB 200 


FER FINIRE ":: RETURN 


PRINT CHR$ (19); 
FOR Y=1 TO X1 
PRINT CHR$(17) 7 
NEXT Y: RETURN 


75 


10 BEM FROSEOOOOOORGOUOORO UGO O GOGO GORE NCL,LI NOTL,IJI=M 


2O REM £ 
O REM £ GIOCO DEL 15 * 
40 REM * VERSIONE APPLE II * FINT"NOSS 
50 REM £ ‘ : PRINT MI 
60 REM £ PERSONAL SOFTWARE * HTAB 7+l$S: PRINT" "; 
70 REM £ + 
80 REM SPOPOGGONOGUOOORONO ORO ROGO NORGE 
90 REM IF IIC1 OF IIS4 0FII 1 NR IT 4 GOT A 
DIM N(4,4) IF NCII,JI) 0 GOTO 440 
FOR NUM=1 TO 15 FLAG=1 
ISINT (RND(1)*4+1): J=INT(RND(1)X4+1) RETURN 
IF N(I,3)<>0 GOTO FOR I=1 TO 4: FOR J=1 TM 9 
NCI,3)=NUM: NEXT NUM IF N‘I,J)=0 GOTO 490 
TEXT: HOME HTAB B+I*S- (MI, 9 VTAB 4149 


GOSUB Sc 
GOSUB 4 


FRINT NC6I.,J) 

NEXT 3,1: RETURN 
VTAB 1: HTAB 9: FRINT"G 10CO DEI ine 
INVERSE: FOR LINE=4 TO 
VTAB LINI HTA&B 10 

FOR PRINT" 
FOR VTAB Li 


659 THEN END 
IF MO AND M 1a GOTO 250 
INT"ERFORE. USA T MUMERI DA 1 615." 


HTAB 15: 
HTAB 25: 

J=51 TO 4 NEXT L 

ROS MESSI 580 VTAB 24: BGTTI CF° FER FINIRE. ":: RETURN 


400: IF FLAG=1 GOTO 
GOSUE 400: IF =] RON 
GOSUE 40 IF G=1 GOSO > 
GOSUB A00: JP FL AG=I GOTO gu 


1I=]}+1: 
TI=IMi: 
II a 


FRINT"MI 
GOTO 190 


A MON FERMESSA. 


, IL COMPUTER SHOP 
DATA PROCESSING HOUSE DI MODENA 


Via Giardini, 464 (Direzionale 70) Tel. (059) 340407 - 41100 Modena 


ANALISI E PROGRAMMAZIONE - CONSULENZE EDP 
PERSONAL COMPUTER - ELABORATORI ELETTRONICI 
SISTEMI GESTIONALI - SISTEMI WORD PROCESSING 
SISTEMI “CHIAVI IN MANO" - CORSI DI PROGRAMMAZIONE 


ASSISTENZA FINANZIARIA 
FACILITAZIONI PAGAMENTO 
LEASING 
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INOLTRE PUOI TROVARE: Honeywell= GCentronics - Epson = Sinclair = Texas Instruments - Terminali Video 


L’INFORMATICA IN LIGURIA 


L'informatica è un settore giovane e quando si è giovani è facile sbagliare. 
Affidandovi ad un centro specializzato dove i prodotti sono selezionati e l'assistenza è garantita da personale 
esperto, potrete risolvere i vostri problemi con le soluzioni più moderne e collaudate. 


Nei nostri centri dimostrativi scoprirete che l'utilizzo diun computerè più facile di quanto pensiate, se i programmi 
rispondono alle vostre esigenze: 


GESTIONE ORDINI CLIENTI GESTIONE DEL PERSONALE INGEGNERIA CIVILE E STRUTTURALE 
GESTIONE ORDINI FORNITORI PAGHE PER EDILIZIA COMPUTI METRICI LEGGE 373 

BOLLA DI ACCOMPAGNAMENTO CONTABILITA' SEMPLIFICATA GESTIONE RISTORANTI-ALBERGHI 
FATTURAZIONE RIEPILOGATIVA GESTIONE MAGAZZINO GESTIONE CARTELLE CLINICHE 
FATTURAZIONE IMMEDIATA PARCELLAZIONE PRESTAZIONI AMMINISTRAZIONE CONDOMINI 
PORTAFOGLIO EFFETTI DICHIARAZIONE REDDITI-740 AGENZIA IMMOBILIARI-ASSICURAZIONI 
ESTRATTO CONTO CONTABILITA' FINANZIARIA PREVENTIVAZIONE CANTIERISTICA 
CONTABILITA' GENERALE-IVA GESTIONE ENTI PUBBLICI E MOLTI ALTRI PROGRAMMI 
CONTABILITA' CLIENTI PAGHE PER SCUOLE SETTORI PERSONALIZZABILI 


CONTABILITA’ FORNITORI 


VIENI A SCOPRIRE CHE DIFFERENZA C'È 


® 
ASSOCIATO 
GENOVA - C.so Gastaldi, 77R - Tel. 010/300.797 
LAVAGNA - C.so Buenos Aires, 125 - Tel. 0185/314.142 L'INFORMATICA SU CUI PUOI CONTARE. 


Tandy 


Radio 'haek 


10 REM B9HOOOSGUOSOOOSONOOVONO GOG 
+ 


290 II=I-1i: 
20 REM * n 


II 


3O REM * N00 DEL 15 + 

O REM * SIONE TES-Q0 MOD. 1 + 

REM * * 1 GOTTO 196 

REM * FERSONAL SOFTWARE x 
70 REM * Li 
B0 REM KKXKKXAFKKKEKKKKEFF FT EX FF4 FF XEF44X4EX3344% O PRINTI: 
90 REM + Mo 
100 CLEAR 2 DIM 5:99) X=128% (J+1) +18+]%S: FRIMTOX," 
110 FOR NUM=1 TO Foro. son 
120 I=RND(4 J=RND (4) O FLAG=O 
130 IF NI, o Goto 120 IF IIC1 OR II%4 OR III DR JIA GoIn 4% 
140 NOI, J)=NUM: NEXT NUM IF NCII,JI): SO GOTO qRO 
150 C 20 FLAG=1 
150 GOSUR 490 O RETURN 
170 GOSUB 440 FOR I=1 TO 4: FOR d=i 10 4 
180 Fi 6 "I IFNCI,T)=O  GOTO 470 
190 FRINTA896, "RATTI LA TUA M UMPUT MS X=12B% (J+1) + 1841454 (M(1,3) Se 
200 IF LEN(M$)<1 GOTO 230 PRINTAX,N(I,4)s 

IF M$="F" THEN END 470 NEXT J,I 
IF_M:0 AND M16 GOTO 250 O RETURN 
"i 1 PRINT99SO, "BATTI CF' FER FINIRE": 
I NUMERI DA 1A 15." NT284, "GIOCO DEI psn 

240 GOTO 190 FOR RIGA=IO TO 34 STEP 6: FOF CUI 90 ius 
250 FOR I=1 TO 4: FOR d=) TO 4 SET (COL, RIGA): NEXT COL.RIGA 

O IF NU, I)=M GOTO 280 O FOR COL=42 TO 8 EF 10: FOR FIGA=IO IN 39 

O NEXT 3,I SET (COL,FIGA): MICOL+1. FIGA): NEXT RIGA,COL 

LI=I+1: GOSUR 390: IF FLAG=I GOTD 3%» O RETURN SA 


i 
Fi 
z 
S 
< 
È 
8 
- 


mano 
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GPSA4 è il nome della Nuova famiglia di elaboratori Gene- 
ral Processor: elaboratori perfetti, nati dalla esperienza 


della Prima azienda italiana costruttrice di piccoli com- 
puter. 


I GPS4 sono tutti it. 
nella costruzione, it 
ziale come quello di 


‘aliani: italiani nel progetto, italiani 
aliani nel design, elegante ed essen- 
quello di un’auto sportiva di gran classe. Han- 
no una tastiera italiana, Separata, davanti alla quale ogni 
dattilografa si trova Subito a suo agio perché la Z,laWe 
la M sono al loro posto e perché, come in una calcolatri- 
ce, ci sono i tasti doppio e triplo zero. 

E sono italiani anche nella assistenza. 

Con i loro 128K RAM minimi (estendibili a oltre 200), 
due terminali collegabili e con una ineguagliabile biblio- 
teca di software di base ed applicativo, i GPS4 rappre- 
sentano lo ‘status of the art?” della moderna miniinfor- 


e renoeoni 


matica, per la quale rappresentano e rappresenteranno 
negli anni futuri un importante punto di riferimento. 
Una raccomandazione: non fatevi influenzare dallo sty- 
ling: i GPS4 non sono semplicemente i più belli; sono 
semplicemente i migliori. 


Alcuni OEM General Processor 


Milano: PGE: 02/28.22.225 - Como e Varese: SIAEMME: 
0331/67.96.75 - Alessandria: CID: 0131/34.44.18. - Modena: Data: 
:059/68.80.90 - Bologna: Computer Systems: 051/: 79.94.21 - Pistoia: 
CEIA: 0572/51.611 - Firenze: R2 Data: 055/41.11.42 - Firenze: Aeffe: 
055/75.27.89 - Prato: Gerva: 0574/59.26.94 - S. Croce/Arno (PI): Dai- 
nelli: 0571/31.805 -Arezzo: Tecem: 0575/28.848 - Arezzo: Etruria Si- 
stemi: 0575/35.59.71 -Livorno: CEDOS: 0586/25.395 - Siena: Tecno- 
computer: 0577/74.03.34 -Roma: General Computer: 06/52.84.032 - 
Latina: Coritax: 0771/22.503 -Napoli: CompuSystems: 081/46.36.02 - 
Napoli: Tecnodata: 081/24.21.66 - Calabria: Tripodi: 0984/99.21.42 - 
Spagna (Madrid)/Vimesa: 690.20.29 


GENERAL PROCESSOR s.r.l.- elaboratori italiani - Firenze 


Tel. 055/43.55.27 - 43.763.88 - Tlx 571034 GENPRO I 


co000 2 200050900006 000009 9008009000000 2000800000 00ECHKKL0T9LECCKGLE0DEGEHCOS200000 0900000 


Questo gioco per due persone si spiega da si 


è il | raggiungere 210 punti prima dell’avversario. 
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° 
s classico gioco del bersaglio con le freccette. Ogni gio- Qui a fianco vi è la versione per il PET/CBM. Più 
s Catorenehaadisposizione tre alla volta; l’obiettivo è di | avanti trovate quella per il TRS-80. n 
° 
è ° 
° ° 
° ° 
È ° 
: € commodore : 
Da n 
° è 
° n ° 
e 10 REM 2900000000 GO OOO ROOF ORE 590 IF N=4 THEN N=1 x 
S 20 REM K * 600 GOTO S10 La 
° 30 REM * BERSAGLIO * 610 IF N=4 THEN TURN=1 e 
a 40 REM * VERSIONE FET“CEM * 620 GOSUB 790 La 
È SO REM £ Li 630 S1=S1+HIT ° 
3; 60 REM £* FERSONAL SOFTWARE + 640 IF S1>210 THEN S1=S1-HIT ° 
° 70 REM * Li 650 GOSUB 690 ° 
: 80 REM KELELERIOO RA LEE EAOROO A AI EER 660 IF N=4 THEN GOSUR 220 e 
z 90 REM 670 IF _N=4 THEN N=1 O 
DI 100 DIM N1$(20) ,N2$ (270), A$ 20) 680 GOTO 510 = 
LI 110 P=230: D=5 ‘690 W=22: GOSUB1020 pa 
z 120 PRINT THR$ (147) - 700 PRINT N1$ SI TAB(20) N26" È 
. 130 C1=98:C2=214:C3=127:C 102:C5=160 710 IF Si=210 OR S2=210 THEN GOSUR 910 . 
° 140 PRINTTAR(15) "BERSAGLIO FRFINT: PRINT 720 W=24: GOSUB 1020 — 
i 150 INFUT"NOME DEL FRIMO GIOCATORE ":N1% 730 FOR 1 TO 39: PRINT “ NEXT I È 
5 160 INPUT"NOME DEL SECONDO GIGCATORE " Mii 740 W=24: GOSUB 1020 
° 170 PRINT CHR${147) 750 FRINT TABC(10) "TOCCA A_":: 
pad 180 GOSUB 280 760 IF TURN=0 THEN PRINT N1$ 5 
i 190 S1=0: S2: N=1 770 IF TURN=1 THEN PRINT N2% 
» 200 GOSUB 690 780 ° 
° 210 FOR X=0 TO 39 790 ® 
. 220 POKE 33567+X, g00 ° 
230 IF PEEK(151)=59 THEN GOSUBR 4109 810 IF Y=5S THEN n) 
240 POKE 33567+X,32 820 IF Y=6 THEN . 
250 NEXT 830 IF Y=7 THEN È 
260 GOTO 210 840 IF Y=B THEN IY=5 
270 END 850 IF PEEK(32768+X-1+(Y-1Y)*40)=C1 THEM HI]T=" 
2BO FOR H=1i TO 39: FOR F=1 TO 3 860 IF PEEK(32768+X-1+(Y-IY)}%40)=C2 THEM HIT=10% : 
290 POKE (32768+H+160+(E-1)#40),32: NEXT: NEXT B70 IF PEEK(32768+X-1+(Y-IY)*40)=C® THEN HIl=s0 è 
300 FOR VL=1 TO 3 880 IF FEEK 769+X-1+(Y-TY) #40) =C4 THEN HIT- 
310 FOR F=10 TO 1 FOKE (32768+F-1+/Lx40) 890 IF FEEK(32768+X-1+(Y-IY)}%*460) 15 THEN HIT 
320 POKE(3276B+F+14+VL #40) ,C2: NEXT 900 RETURN ° 
330 FOR F=14 TO 16: FOKE(32768+F-1+UL#40), 910 FOR S=1 TO GOSUB 1010: NEXT & 
340 FOKE (3276B+F+7+VL#40) ,C3: NEXT 920 GOSUB 1020 
350 FOR F=17 TO 18: FOKE(32768+F-1+UVL*40) 09 930 ‘as NE*T IT 
360 FOKE (32768+F+2+VL #40) ,C4: NEXT 940 W=24: 
370 FOKE(32768+1B+VL#40) CS _ 950 INPUT"VOLETE GIOCARE ANCORA":5$ 
380 NEXT VL 960 IF S2=210 THEN TURN=0 
390 FOR H=1 TO 39: FOKE(32768+H) Ci: NEXT 970 IF Si=210 THEN TURM=1 
400 RETURN 980 IFLEFT$(A$,1)="S"THEN FRINT CHES (134%) 
410 FOKE (32768+X-1+800) 990 GOTO 180 
420 IF Y=0 GOTO 470 1000 END 
430 FOKE (32768+%-1+(Y-1)%40) 1010 RETURN 
440 IF PEEK(32768+X-1+(Y-2)#40) Goto 470 1020 PRINT CHF$(19); 
450 POKE (32768+%-1+(Y-1)x40),32 1030 FOR I=1 TO Wi 
460 GoTO 420 1040 PRINT CHR$ (17): 
A 470 


480 GOSUB 1010 1050 NEXT I: RETURN 


490 IF TURN=1i GOTO S30 
500 IF TURN=0 GOTO 610 
S10 x=0 

520 RETURN 

530 IF N=4 THEN TURN=0 
540 GOSUB 790 

550 S2=S2+HIT 

560 IF S2>210 THEN S2= 
570 GOSUB 690 

580 IF N=4 THEN GOSUB 280 


2-HIT 


e 
° 
° 
° 
° 
e 
° 
° 
° 
® 
° 
. 
° 
° 
° 
° 
. 
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090500008 505500060092000500000008008090098 


79 


Tandy 


Radio Shack 


REM FEKKLKFTFEFFKFFFFFIFFFFFIFFE RIINA ER FAARAE 


REESAGLIO * 

VERSIONE BO MOD. 1 4 

* 

SOFIUARE * 

* 

FIFIFKIFIIARF RAFF EAFFEFTFFIFIAFEA (LRZZEZI 


5: CLEAR 100 
) PRINT TAB(15)"B E FR 


PRIMI: FRINT 


INFUT 2 
“BATTI IL NOME DEL FRI CORE "3M$ (1) 
INPUT 

"BATTI IL NOME DEL SECONDO GIOCATORE": Ms (2) 
TURI SC) man 


GOSUE 1000 
FRINT964, STFIMG# 
FRINT264, "TOCCA A 
FOR N=1 TO E 


GOSUE 15 
IF xi x THEN HIT 
IF AND THEN HIT 


IF AND THEN HIT 


IF THEM HIT=SO 
IF_(STURN) +HIT) 210 THEN 
{TURNI +HIT 
270 PRINTAO,N$ (1) 3 "=":S(1)3" "a M$ ( 
280 IF SCTURN)S210 GOTO E NEXT 


290 IF TURN=1 THEN TURN=2 TURN=1 
300 FOR N=1 TO 3 

310 FRINT9P (MM), CHRS$ (3 
320 NEXT 

330 GOTO 180 

CLS: FOR Y=7 TO 14: 


ELSE 


0000000400 


SET (66,V): SET(67,V): NEXT 


0000 


FOR X=0 TO 127: SET(X,6): NEXT 
FOR Y=7 TO 13 STEF 2 
FOR X=60 TO 64 STEP SET O, VW): SETOK+1,V+1): : 
NEXT X ° 
FOR Xx=69 TO SETOX.W): SETOMI.V+1): ° 
NEXT X 7 
1040 NEXT Y È 
1050 FOR TO 14 STEF ° 
1060 FOR 9 TO 59 STEF SET OX, VW): NEXT X ° 
FOR X=74 TO 84 STEP SETOX.V): NEXT X : 
TO 13 STEP 2 ° 
) TO 48 STEP 4 
SET (X+2,V)oa SET(X,Y+1): NEXT X 
FOR X=B6 TO 104 STEF 4 
SET (X.Y): SETOX+2,Y+1): NEXT X 


NEXT Y 
RETURN 

FOR X=16320 TO 16382 

POKE X+1,91: FOKE X,32 i 

IF INFEY$=CHR$(91) GOTO 1550 ELSE NEXT 


Ò 
x=163 


NEXT: GOTO 150 
320: POKE X, 


NEXT 
X=B96+X1 

IF PEEK(15360+X) 
FRINTOY,CHR$ (91) 
X=X-64: GOTO 1570 
CLS 
FRINT2128, "HA VINTO 
FRINT : INFUT" ANCORA": A$ 
IF LEFT$(A$,1)="S" THEN GOTO 160 il a 


THEN RETURN ° 
FRINT9X+64, CHR$ (32 


INFORMATICA BIELLA sas 


Distributori stampanti i ibili 
CENTRONICS STANDARDS rio compatibili 


OLIVETTI ET 121/201/221 
ANTARES 6000 
ADLER SE 1010/1030. 


Rivenditore autorizzato APPLE. 
Rivenditore OLIVETTI M 20/ST. 


Sono disponibili anche le sole interfacce. 


P. S. PAOLO 1/8 - 13051 BIELLA 
TEL. 015/29875-24181 


Questo programma simula un orologio digitale, vi- 
sualizzando sullo schermo le ore, i minuti ed i secondi in 
grande formato. 

Nella riga 100 si inizializzano gli indirizzi relativi al 
modo musicale. Il modo musicale si abilita infatti con 
POKE 59467,16; con POKE 59466, Y si decide l’inter- 
vallo di frequenza e con POKE 59464,X si decide la 
frequenza (X e Y variano da 1 a 255). Per chiudere il 
modo musicale si devono ripetere le tre POKE con 
argomento 0. 

Il modo musicale viene azionato al cambio dell’ora 
(per esempio dalle 08:59:59 alle 09:00:00) nella riga 
260. 

L'istruzione F%=FRE(0) della riga 980 serve a com- 


pattare le stringhe utilizzate e ad eliminare quelle che 
non servono più: ogni volta infatti che si trova una varia- 
bile stringa, sia essa già definita stringa, sia essa già 
definita oppure no, essa viene memorizzata. Ciò com- 
porta uno spreco di memoria, occupata da stringhe 
ridefinite e, pertanto, inutili. Nel nostro caso la variabile 
alfanumerica T$. L'operazione di compattamento è 
eseguita automaticamente dal sistema operativo quan- 
do non c'è più memoria disponibile. In tal caso, tuttavia 
l'esecuzione di questa istruzione non può essere relati- 
vamente lenta, con un aumento del tempo di esecuzio- 
ne del programma. Richiamandola periodicamente, si 
ottimizza l'occupazione di memoria e si migliora la velo- 
cità di esecuzione. [| 


Cs commodore 


10 REM 


IRTTZZZZZZTETETTCL TE, AREE CCCLILILEILELELI 


UFOLOGIO DIGITALE 
VERSIONE FET/CEM 3032 E 4 


FERSONAL SOFTWARE 


Y * 
x * 
* * 
* 14 
* * 
+ * 
[TTTEREZZEZAZELAGALEZEGZGZZLELEZELEGLEZAL] 


CHF$ (209) 
h+D$+D$+D$+D$+D$+D% 


A Ni he 
D$-CHES (145): DE 
PFEINT CHEBI147 
INFUT"BATII 
JE LENTE) 
FRIMT 
FORT 


18 


M=n AND DI=O GOTO 1020 


PRINT TARCT) 

FOR T=1 TO S: FRIMT TAB(I)CE” “Cs: NEXT I 
INT TABET)I C$C8C8D$: RETURN 

FOR ]J=1 FO 6: PRIMI T di “C$: MEXT 1 

PRINT TABIT)" “"C$D 

FRINT TAB)" 


CECEUE 


INT TABITD)O& 
MT TAB)" 
INT TARE 
IMT TE 
290 PRINT TA 
400 PRINT TARCT) CHL $0SCSCE0$1 


RETUFM 


SE, 620, 590,760, 870. 


410 PRINT TABCT)" 
420 PRINT TAB(T)C 
FRINT TAB(T)" 
O FRINT TAB)" 
>RINT TABCT)" 
O FRINT TAB(T) 
70 PRINT TABCT) 
O PRINT TAB(T)" 
PRINT TABIT)" 
(00 PRINT TAB(TI" " 
Y TAB(T 
TAB(T) 
TABLT i 
TAB)" “D$: RETURN 
T) CSCSCSCSC$ 
mos” " 
TABLI) CSLSC8C8" " 
FAB)" “ca 


"D$: RETURN 


“"D$: RETUEN 
TARCTIC$ n 
TAR(TM) CSC8C8CE" " 
TABCT) " “"C$C#08" "Ds: RETURN 
TTAB(T) C$08C80S08 
T ne "C$ 
"D&: RETURN 


800 PRINT 
BIO PRINT TAB/T)IC& “ 


dr 
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200. IF 
919 TS 
DO DD=VAL(MIDS (TE 
970 M=VAL (MIDE(T®, 
940 DM=VAL (MID$ (T$ 
950 H=VAL(MIDS(T%, 


970 IF DHXLO+ 
980 F%=FRE (0) 


990 FOKE 7 
1000 POFE 0: FOFF UO: RETURN 

| 1010 TO DU: MEYT: RETUEM 
1020 GOSUB 990: FOR T=1 TO Sé: READ F,DII 
1070 POFE U.F: GOSUB 1010: NEXT: H=DHY10+H 
1040 IF H 2 AND HO 0 THEN HisH: GNTO 1060 


1050 HI=ABS(H-12) 
FOR Il1=1 TO Hi: FOKE I 


GOSHE 1010 


1070 : UO: GOSUB 1010: GOSUE 1000 

1080 OTO 190 

1090 D: FP _ D FE Dd 

1100 DATA 126,100,112,100, 126,100 
DATA 142,100, 150,100, 142,100 
DATA 100,000, 100,169,100 
DATA 150, 100,142, 190,000, 100 
DATA 150,100, 147,101, 126,100 
DATA 100, 126,100, 117,100 
DATA 100,147,100 150,100 
DATA 100,126, 190,147,100 


BDO PRINT TAB(T) "> "C$C0% RETURM 1180 DATA 
SZ0 PRINT TAB(T)" "CSCscs” 

840 FRINT TABST)C8" si 

850 PRINT TAB(T)C&" "cs 

860 PRINT T&BCT)" “"C$C$C80% 

870 FFINT TAB(T)" 

880 FRIMNT TABT)" du 

890 PRINT TAB(T)C$C$C$" "D$: RETURN 


100, 192,100, 126,101 
100, 169,100, 000, 100 
+100, 1 
4400, 


editore 


VA 


Il piacere del computer è /a prima collana inte- 
ramente dedicata alle applicazioni hobbystiche 
e professionali del personal computer. Questi 
libri descrivono l'hardware e il software, inse- 
gnano la programmazione in vari linguaggi, of- 
frono molteplici applicazioni e informazioni pra- 
tiche. Per conoscere gli altri titoli finora ap- 
parsi (relativi al PET/CBM, all’Apple, al Basic, 
al Pascal, al TRS-80 e ad altri argomenti) chie- 
dete il catalogo generale a 


franco muzzio & c. editore 
via bonporti 36 - 35100 padova 


cognome e nome 
indirizzo 


cap, località 


Colpo strategico 


Colpo strategico è un gioco che richiede logica e 
memoria. | giocatori tentano di catturare i pezzi dell’av- 
versario muovendo un'armata di 40 pezzi su una scac- 
chiera, in avanti, all'indietro e lateralmente. 

Generalmente sono necessari da 30 minuti a un'ora 
per fare una partita. Man mano che i giocatori acquistano 
familiarità con il gioco, svilupperanno le loro strategie di 
posizionamento dell'armata e movimento. 


Istruzioni 


Obiettivo del gioco è di muovere dei pezzi attraverso 
un campo di battaglia per catturare la bandiera dell’av- 
versario. Ogni giocatore comincia con una armata di 40 
pezzi composta da: 


NUM. — NOME 
PEZZI 


GRADO 


Maresciallo 
Generale 
Colonnello 
Maggiore 
Capitano 
Tenente 
Sergente 
Artificiere 
Scout 

Spia 10 
Bomba non eliminabile 
Bandiera non eliminabile 


Questi pezzi sono in ordine di grado militare: il mare- 
sciallo ha il grado più alto, la spia il più basso. Tuttavia, 
questo è l’unico pezzo che può eliminare il maresciallo 
dalla tastiera. Le bombe sono pezzi non eliminabili che 
possono eliminare qualunque pezzo che tenti di 
“colpirle”, escluso l’artificiere che può disinnescarle ed 
eliminarle. Il gioco si effettua su una scacchiera 10 x 
10, che viene continuamente visualizzata sullo scher- 
mo durante il gioco. Il primo giocatore posiziona i pezzi 
sulle quattro righe superiori della scacchiera, il secondo 
giocatore sulle quattro righe inferiori. Le due righe cen- 
trali sono vuote all’inizio del gioco. Quando i due gioca- 
tori hanno posizionato il loro esercito, hanno la possibili- 
tà di fare qualunque spostamento. 


FIA DUISILILWN+- 
O0ONDQDIDAPGWGMA 


Posizionamento 
Il primo giocatore posiziona i pezzi sulle righe 1-4 (la 


riga 1 è quella posteriore, la 4 quella anteriore). Per 
posizionare uno dei pezzi eliminabili (eccetto la spia) 
basta battere il grado, e il quadrato lampeggiante con- 
terrà quel pezzo. Per posizionare una spia, una bomba 
o una bandiera, battere S, B o F rispettivamente. Il 
secondo giocatore posiziona i pezzi sulle righe 7-10 (la 
riga 7 è quella anteriore e la riga 10 quella posteriore). 


Mosse 


1. | pezzi si possono muovere solo uno spazio alla 
volta: in avanti, all'indietro o di lato. Non sono possibili 
mosse diagonali. | giocatori battono le coordinate del 
pezzo che vogliono spostare. Le coordinate X e Y di un 
pezzo vengono misurate verticalmente e quindi oriz- 
zontalmente (X = verticale, Y = orizzontale). 

| pezzi vengono rivelati solo quando è il turno di quel 
giocatore. L'avversario non può guardare lo schermo 
quando un giocatore si muove. 

2. | due pezzi non possono muoversi al centro della 
scacchiera. 

3. Due pezzi non possono occupare lo stesso spa- 
zio, e non sono permessi salti. 

4. La bandiera e labomba non possono essere mos- 
se. 

L'unico momento in cui i due giocatori possono guar- 
dare lo schermo contemporaneamente è quando un 
pezzo di un giocatore attacca un altro. 


Regole di attacco 


1. Non è possibile un attacco in diagonale ma solo 
sui quattro lati del quadrato adiacente. 

2. Un giocatore non può attaccare e muovere allo 
stesso tempo. 

3. Per attaccare seguire le seguenti regole. Quando 
il computer visualizza DA? Il giocatore batte le coordi- 
nate della posizione attuale. Il computer quindi visualiz- 
za A? e il giocatore batte le coordinate del pezzo che 
vuole attaccare (assicurandosi che sia in uno dei qua- 
drati vicini). Il computer risponde CORRETTO? e se si 
risponde SI il computer controlla che l'attacco sia corret- 
to. Se si risponde NO si ritorna a DA? 

4. Il pezzo con il grado minore viene eliminato dalla 
scacchiera. 

5. Se i gradi sono uguali, tutti e due i pezzi sono 
eliminati dalla scacchiera. 

6. Una spia può eliminare un maresciallo se essa 
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attacca per prima, invece se il maresciallo attacca per 


primo accade il contrario. Un artificiere può eliminare 
una bomba. 


7. Le bombe non si possono spostare. 


Particolarità 


1. Se per qualche ragione !a visualizzazione dello 
schermo viene disturbata eventualmente da qualche 
input sbagliato, un giocatore può battere le coordinate 


0,0 


sia in risposta a DA? che in risposta a A? 


2. Se un giocatore non può muovere al suo turno o 
desidera passare, basta battere —1, —1 in risposta a 
DA? 

3. Se un giocatore sbaglia a battere le coordinate in 


risposta a DA? può battere —1, —1 in risposta a A? 


4. Quando un giocatore ha introdotto le coordinate 
iniziali e finali, il computer chiede CORRETTO? e si può 


risp. 


ondere SI o NO. 


Tandy 


Radio S'hacek 


POM: VB ZZZZZZIZIEIZIZIZZZZEZZ:ITITITITTTTTTELI 
20 REM 


* 

ZO REM * COLFO TEGICO * 

REM * VERSIONE TRS-80 MOD. I * 

REM * * 

REM * FERSONAL SOFTUGRE , 

REM * * 

(i MR E GGGIZIGGIIICIZZIZIZZZZZITTITITTTTTITETTI 

REM 

CLS: DEFINT A-Z: CLE FL=1: 

DIM SF 14 * (2) = 698 


DIM AC 
FOR T=1 
DATA 1,1,7 


10) UCI FICO 
FEAD NU/T): MEYTOT 
4,4,4,5,8.1,1,6 


FRINT2464, COLFO STRATE CE 
TRING& (7,191) +CHFE$125) +STRING&(7, 24) 

D$+DD$+DD&+STRIMG$ (7 $191) 
=STRING$8 (7,1 ) +STRINGE(7, 
CHR$ (199) +CHR$ (26) +STR 17,29) +CHE$! 

CHR$ (26) +STRING® (7,24) +STRINGH(7, j74) 
200 DIM B$( B% (1) =CHFE$ (131) +CHR8(19]) + 

CHR$ (26) +STRING8 (2, 241+CHF8 (175) +CHE&/(191)+ 
CHR$ (174) 


B$(2) 


) +CHF$ (191) +CHES 
(191) +STFIMGS (2,1 
Y +(0HF 


=STRING$ (2, 
STRING$ (2,24) +STRIN 
B$(4)=CHR$(191)+" 
STRINGS 4) +STRIN 2 
24 E% (5) =CHR$ (191) +STRINGE (7 

STRING$( 
250 B$(6) I 

STRING$ (3,24) +CHF$(191) + CHE 
260 B$ (7) =CHR6 (147) +CHR%(1 

+CHR$ (24) +CHR$/191) 
270 E$ (8) si 


) +CHE$% (191) 
131) +CHF$ (26) + 

2) +0HE% (191) 

1) +CHF$ (26) + 

r $ (179) +CHE$(191) 
1 +CHF® (191) #CHE$ 1 


1 1 (191) CHESSA) 
#1) +CHE$(1761+CHE$(191) 
179) 40HF$ (191) 4CHR& (74) 


24) +CHR8(1 
HE (191) £CHES 
+CHF% (24) +CHR& (191) 
290 B$ (11) SCHRS (191) +STRING&C® 
STRING$ (3,24) +CHR$ (191) 4CHK$/1<} 
200 Bs( HE (166) +CHR$ (131) +CHR$(j3 
CHE$ (26) +STRING%/ ORE 


280 B$(9) 


IZ ACHRE 6) + 


CHE abrS ® +CHF$ (164) +CHE$ (17914 
310 B$ (12)=CHF$ (136) +CHR$ (147) 45 
B$ (12) =CH CHR% +0HR6 (26) + 
STRING (2 ) 
Ss HE (191 )+CHE% (189) 
10 
Yak 
156789112345 


VARPTR (NLS) : EG=PEEK(E9+1)+2S4gPEE 

FOR E7=E 1 26: RI z J6XPEEK (E9+ 
NE 8 TO EB+26: READ Eb: FOKE E7,E6 
DATA 
DATA 
400 DATA 175,211,255 
410 IF FEEK (16296)=20] POKE 

FOFE 16527,FEEH (E942): 


420 CMD"T": DEFUSRO 


16526 PEEE (E9+1); 
GOTO 440 
EEK (E9+1) +2S64PEEK (E 


942) 


B6O 
870 
880 
890 
900 
sio 
920 
iù] 
940 
950 
960 
97à 
980 
990 
1000 
1010 
1020 
103 
1040 


FOKE 14308,0 

FOR x=1 TO FOR Y=1 TO 10 

AOL: AOK+16,V) NEXT v.X 

GOSUE 470: GOTO 930 

CLS: FOR 5488 TO 155 

USUSR (800): NEXT 

FOR I=192 TO 768 STEF 64 

PRINTOI, " FOR TI=1 TO 10 

FRINT CHR$(191): CHR$(196);: U=USF(850) 

NEXT Il: PRINT CHR$ (191): NEXT 

FOR I=16192 TO 16242: FOKE I, 131 

U=USR (800): NEXT 

FOR I=15819 TO 15828: POKE 1,191 

OKE 1+64,191: FOFE I+20,191: FOFE 1+84,191 

U=USR (625): NEXT 

POKE 15819,184: FOKE 15839,184 

FOKE 15820,190: FOFE 15840,190 

FOKE 15826,188: FOFE 15946,188 

FOKE FOKE 15847,176 

FOKE FOVFE 15824,143 

POKE FOFE 15904,14 

FOKE 15890, 147 FOKEE 15891,1 

FOKE 15910,143: POFE 15911,1 

T=1: FOR I=897 TO 942 STEP S 

PRINTAI, Ti: T=T+1: USUSR(1632): MEYT 

FOR 1=243 TO 819 STEF 64: FRIMT9I, T 

UZUSR (1632): NEXT 

GOSUE 760: PF=2: GOSUR 780 

+(FEL-1)X10 TO 104 (FL 1X10 
TO 10 

IF AX,W)=0 GOTO 

THEN FRINTQE (X-AD, 3 
11 THEN PRINTAE CK-AD.V), * 

C(X,W)=12 THEN FRINT9 

FRINTRE (X-AD, VI, DOX.Y 

U=USR (1300) 

NEXT Y.,X: RETURN 

FOR X=1 TO 10: FOR Y 
IF ACX+ (FF) AI, 

PRINTOE (X.Y), STRINGE/ 

U=USR (1320) 

NEXT Y,X: RETURN 

FOR I=15607 TO 15615: FOFE 1,4% 

FOKE 1+192,175: FOFE I+3@4,131 

FOKE 1+576,176: NEXT 

FOR I=15607 TO 15799 STEF 64: FOFE 1,191 

FOKE 1+B, 191: FOFE T+384,]691 

FOFE 1+ ISFIROZO): NEYT 

PRINT9183, "NUMERO 

FRINT98897, "NUMERO 


FOKE 1,176 


GOoTo g10 


SO El 
INCI 


E IF COO=IO 
ELSE IF Cc 
ELSE IF 
2AD, VM), " +": ELSE 


wa 


17016 
GOTO & 
140); 


RETURN 


FOR I TO 500: NEX RETURN 
FRINT9O, CHF: RETURN 
FOR I=i TO 1200: NEXT 


FRINTAO, CHR$ (30) 3: RET 
FOR FL=1 : FUROOSI TO 1% 
FICKX) NEXT XX: AD=IFL-1x10 
PRINT2O, "POSIZIONAMENTO GIOCATOR s 
GOSUR 910 
+ (FL-1)X16 TO 44 (FL-1)%16 

TO 10 


$ "CHE PEZZO VUOI IN MIESTO POSTO" 


Ab=INKEYS 
IF A$="S" THEN A=10: GOTO 1040 
"R" GOTO 1n6n 


IF A$= 


E“ 
ASVAL (AS) 


GOTO 1040 


v0000008 


° 


IF A=O THEN FRINTDE (HAD, YV)," 
FRINT@AE (X-AD, Y) STRING8 (2,144 


ELSE FRINT9E(C1-AD,C2) ,C(C1,C2); 
1830 GOSUB 900 
1840 PRINT90, "GIOCATORE":3-FL3 "GUARDA! !": 
IF F=NUC(A) GOTO 990 1850 GOSUB 910: FRINT9SF (FL), B$(C(C1, 02) 
FICA) +1 1860 PRINTOSF (3-FL) ,B$(C(C3-AD*2+10,04))3 
"E" THEN fase" 1870 GOSUB 890 
FRINTDE (X-AD,Y)," 1880 IF C(C3-AD*2+10,04)=11 GOTO 2410 
1890 IF C(C3-AD*X2+10,C4)=12 GOTO 2230 
1900 IF ADX2+10,C4)<%1 GOTO 1920 
1910 IF C(C1,C2)=10 GOTO 1940 ELSE 2OZO 
03. F' 1920 IF C(C41,C2 24) GOTO 2140 
GOSUB 760 1930 IF C(C1,C02) -ADY2+10,C4) GOTO 2 
GOSUB 900: NEXT FL 1940 FOR I= PL) -66, DES: 


FOR FL=1 TO 2: AD=(PL-1)*1 SUE 200 1950 U=USR (9 FRINTASF (3-FL)-66, 
"GIOCATORE": FL; "GIRATI!" ED$;: USUSR(12350): MEXT 1 
GOSUB 710 1960 PRINT920, "GIOCATORE" 


GOSUB 900: PRINT20, "VUOI FARE CAMBIAMENTI": 1970 PRINT9E (C3-AD,C4)," 
INFUT RR$: IF LEFT$(RR$, 1)="N" GOTO 1330 1980 PRINTASF (PL) -66,ED$: 
IF LEFT$(RR$,1)<>"S" GOTO 1190 1990 A(C3-ADX2+10,C4)=0: C(C3,C4)=C(C1, 


GOSUE © FRINT92O, "DA" TMPUT LI UD 2000 PRINT9E (C3-AD, C4), STRING$ (2,140); 
IF U1l<1 OR Ul Ul SINT(‘(U1) GOTO 2010 FRINT9E(C1-AD,C2),"  "s 
IF U2%1 OR UDMO OR UD INT (U® G0T0 2020 A(C1,C2)=0: A(C3,C4)=1: GOTO 2350 


2030 FOR To PRINTOSF (FL) -66, DES: 
U=USR (9000): GOSUEB 2400 
PRINTOSF (FL) -66,ED$:: USUSR (12350) 
GOSUE 2400: NEXT I 

2070 FRINT90, "GIOCATORE": 3-FL 
2080 PRINT9E (C1-AD,C2)," 
2090 PRINTASF (3-FPL)-66,ED$; 
2100 A(C1I-ADX2+10,C2)=0: C(C1,02)=C(C 
2130 A(C1,C2)=0: GOTO O 

2140 FOR I=i TO 10: FRINT9249, DES: 
“TOCE 3 ATEI | 2150 FRINT96 USUSR (9000): GOSUBR 2400 
TOCCA. PE GFRORIRE ATTO" 2160 FRINT92 FRINT9OSIT,EDS: 


PRINT" (BIOCATORE":3-PLs "GI 5 
ERSU IR Rsa SIo 2170 U=USR(12350): GOSUB 2400: NEXT 1 
GOSUR FRINT2O, "DA: "3: INPUT CI, 2180 PRINTI0, Lo 
"I GOCATORI SI DISTRUGGONO A VICENDA. ": 
IF CI » GOTO 1430 i 
PRINTIE (C1-AD,C2),"% " 


Ui=Ut+(PL-1)x1C 
FRINTA CHR$ 
ua 

1 OR UBSIO OR USCSINT Goto 
IF U441 OR UAS10 OR US. CINTC(I4) GOMO) 
1300 + (PL-1)X10: IF ACUS.IHA) 1 GOTO 
1310 US=C(U1,U2): C(UI,U? CUS UA) CAL 
1320 GOSUB 2520: GO0T0 1190 

UR 760: NEXT FL 
FOR FIL=1 TO 2: AD=(FL-1)X1C 


IF ACUI,UZ)<>1 GOTO 
FRINT91? 


INCE!!"; 
GOSUB 910 


UA) US 


ca) 


GOSUBE 900 


p IF Ci=-1 G0TD 2456 = 
IF C1<1 OR CI INTCI) GOTO 1380 PRINT9E (C3-AD, 4), GOSUB S10 
GOTO 1440 A(C1,C2)=0: C(C1,02)=0: A{CI-ADA2+10,C43=0 
GOSUB 470 710: GOTO 1380 C(C3-AD*2+ 4) _S0To 2390 
223 INT GOTO IF CICI,C2 GOTO 2310 
IF CICIOM=1I Gomm FOR I=1 TO 140: PRINT CHR$ (23)? 


USUSR (400): NEXT I: FRIMT CHR$ 


S0TO 
IF ACCI.COI LOT i PRINT920, “IL PEZZO DEL GIOCTORE "FL: 
IF_AICI-ADK2+ 1 GOTO 1% ERINT 3 " SALTATO IN ARIA." 
PRINT9214, CHR$ PRINTALA,L "A": PRINTAE (C1-AD,C UB 916 


ACI, 02)=0: FFINTA248,ED$; 
*‘RINT26I2, ED$:: GOTO 2390 

U=USR (0): PRINT9®, "IL GIOCATORE 
PRINT “HA NEUTRALIZZATO LA BOMBA 
FRINTDE (C3-AD,C4) GOSUB 910 
PRINTDE (C1-AD, CD), 


1500 INFUT C3,C4 

AS10 IF C3=0 AND C4=0 GOTO 1600 

1520 IF C3=-1 AND -1 GOTO 1380 

IF C31 OR C3510 OR CI/SINTICH GOTI 1490 
IF C4<1 OR C4%10 OR CA4SSINT(C4) GOTO 1490 


1550 C3=C3+(PL-1) X10 Di sE 
1560 Y6=3XINT(E(C3-AD,C4) /64) ACC c 


c(c3.C4) 
FRINTDE (CIAD, UA) 
FRINT9248,ED8:: | 
2390 NEXT FL: GOTO 134) 

FOR TO DO: MEXT L: RETURN 
ci I=1 TO 30 
FRINTA466, GIOCATORE" 


262 


1570 X *(E(C3-AD,C4)-INT(Y6/3) #64) 

1580 IF PDINT(X6,Y6) GOTO 1490 

1590 IF C3=C1 AND C4=C2 GOTM 1490 ELSE 1620 
1600 CLS: GOSUB 470: GOSUB 710 
1610 PRINT90, "DA":C1-(FL-1) X10;",": 
1620 IF A(C3,C4)=1 GOTO 1490 


GUTO 1490 


1630 IF C3<>C1 AND C4 GOTO 1490 SR ne IRE GI 
1640 IF C3€>C1 GOTO 1660 pad CLS ui MISI: 
1655 IF C4=C2+1 OR C4 1 GOTO 1670 ELSE 1490 ONE GET 480 

3 3 -1 6 CI SÌ 7 
1660 IF C3 i+1 AND C3*>C1-1 GOTO 1490 oe Ai i ERBA 


1670 FRINT235, CHR$ (30) 3: PRINTOSS USTO":? 
INFUT RR$: IF LEFT$(RR$,1)="N" GOTO 1320 
IF LEFT$(RR$,1)< :"S" GOT 1670 

IF A(C3-ADX2+10,04) GOTO 1810 

FOR I= 
IF C(CI, 
ELSE FRINT9E (C1-AD ‘ 
IMIDE (CI-AD,IT 


SR (2470): RETUEN 
CLS: FRINT CHRS( 
PRINTASIO, "RATTI EMTER PER DI 
IF FEEL (13400)=1 VHEN RUM 
GOSUB 2460: GOTO 24Ru 

IF CUI ,UD)=IO THEN FEININE 
IF COUI,U 11 THEN FRIMTAF 


ARE aMCDET" 


GOSUB 2460: F da i 
O GOSUB 2460: NEXT I IF CUM UD)=17 THEM PRIMINE 
1750 A(C1,C2)=0: ACCT,C4YI=1 IF CUI,US) 15 THEN 
CIRIE A PRINTAE (UL =ND UTI UCI IZ 


IFOCOUZUA)S10 THEN ERIMTSE 
IF C(UT,U4)=11 THEN FRIMISE! 
IF CUT, UA\=12 THEN FRINT9E | 
IF CU 


C4)=10 THEN FRINT 
INTE (C3-AD,C4) 0 (02,041; 
TO 10: USLISF(B000) USI 


NEXT I: GOSUE 891 U4) 16 THEN 
FF=FI GOSUR 760: GOTO PRINTIE (UT-8D, UA) 0 CUT,IIA) + 
1810 F GOSUB 760 2600 RETURN 


1820 IF CICLO? 


O THEM PRINTRE(LI-AN,I 


86 


File comandi 


Questo programma crea un file di comandi che, 
quando eseguito, intratterà un colloquio con il sistema 
operativo, come se i comandi provenissero dalla tastie- 
ra, e il computer agirà conseguentemente. 

È molto raro che si trovi una segretaria felice nell’ave- 
re un computer in ufficio. Ciò è dovuto, in parte, al gran 
numero di informazioni, apparentemente inutili, che bi- 
sogna introdurre nel computer prima che questo comin- 
ci a fare qualcosa di interessante. Parliamo di cose 
come BASIC, HOW MANY FILES?, MEM SIZE? e 
RUN. Il problema è che l'utente generalmente non com- 
prende l’importanza di queste “banali” informazioni. 
Bene, questo programma è scritto per introdurre tutte 
queste informazioni all'accensione del computer, e libe- 
rare la segretaria da questo fastidioso lavoro. 

Questo è un programma in Disk Basic e non funziona 
in Basic livello II. Assicuratevi di lasciare liberi almeno 
256 byte di memoria usando l'opzione MEM SIZE. 


Variabili 


EX$ Contiene dei comandi in linguaggio macchina 
che, quando eseguiti, scrivono il nuovo file comandi su 
disco con i seguenti comandi: 

CMD “S” 


'DUMP Nomefile (START=X"“#4###", 
END=X"4###”, TRA=X"#4 444"), 


IX$ Contiene gli input da tastiera da inserire nel file 
comandi 

$ Contiene Ogni singolo input da tastiera 

ST Inizio decimale del codice macchina 

H1$ Inizio esadecimale del codice macchina 

rÀ Fine decimale del codice macchina 

Z$ Fine esadecimale del codice macchina 

V$ Nome del file 

K Distanza dall'indirizzo di inizio 

sp Indirizzo di POKE (=ST+K) 


E un indirizzo da conv 
cativo (BPS) 
VI BPS di V ( 


ertire nel byte più signifi- 
€ byte meno significativo (BMS) 
Usato anche nel calcolo di V3) 


Vv2 BMS di V (usato anche nel calcolo di V3) 

H$ Scala numerica esadecimale 

K(1)-K(4) Usati per ja conversione esadecimale- 
decimale 

B Puntatore alla locazione di EX$ 

B4 Locazione di EX$ 


B1-B3 Valori temporanei usati nel calcolo di B4. B1 è 


usato anche come indirizzo da convertire in 
PBS e BMS come per V, ma da usare in EX$ 
(Ca| BPS di BI 
BMS di B1 
Valore da inserire in EX$ 


Il computer richiederà un indirizzo di inizio in esadeci- 
male. Questo indirizzo deve essere nella memoria pro- 
tetta (più grande del MEM SIZE indicato in precedenza) 
e deve essere minore o uguale a: 

7F00 per le macchine 16 K 

BF00 per le macchine 32 K 

FFOO0 per le macchine 48 K 
(sottraete 50 byte se pensate di usare il comando BA- 
SIC» al prossimo ingresso in Basic). 

Infine il computer vi chiederà il nome del file. Se non 
date un'estensione, verrà usata l'estensione /CMD (la 
migliore per una esecuzione veloce). 

Ora il programma crea un file eseguibile in linguaggio 
macchina per eseguire questi comandi e trasferirvi in 
DOS. Per eseguire il file di comandi basta batterne il 
nome. 

Un esempio. 

Per scrivere diversi programmi su nastro 

BASIC 

{ 

48000 

CMD“T” 
LOAD“PROG1” 
CSAVE“A” 
LOAD“PROG2” 
CSAVE“B” 
LOAD“PROG3” 
CSAVE“C” 
CMD“R” 

END 

Per listare diversi programmi sulla stampante usare 
una procedura simile, ma con LPRINT. 


Routine 


130-280 

Gli input di tastiera sono posti nella variabile 1$; ogni 
input termina con un ritorno cursore (ENTER) seguito da 
un carattere NULL (CHR$(0)). 

Alla fine della lista viene aggiunto un End of File, 
CHR$(225). 


300-620 
Mediante le routine 1400, 1480, 1530 viene messa in 


ta alla variabile EX$. 


630-690 

Aggiunge input di tastiera al codice 

1120-1180 

Istruzione DATA contenenti codice in linguaggio mac- 
china. 

1200 

Se l'indirizzo di memoria è maggiore di 32767, viene 
convertito negli appropriati valori negativi per PEEK e 
POKE. 

1220 

Converte l'indirizzo B1 nel BMS (C2) e BPS (C1). 


1250 
Routine d'errore nel caso che la posizione di EX$ sia 
cambiata (normalmente non dovrebbe capitare). 


1260 


i i Fornisce l'indirizzo di inizio e lo converte in decimale. 
memoria una routine in linguaggio macchina, ed aggiun- 


1370 

Preleva i contenuti delle locazioni 40B1H e 40B2H e li 

Usa per costruire V3 (fine della memoria protetta). 

1400 

Converte l'indirizzo V nel BMS V2 e BPS VI. Questi 

numeri vengono messi in memoria e aggiunti a EX$ dalla 

linea 6000. Ciò completa la parte dipendente dalla loca- 

zione del linguaggio macchina. 

1480 

Legge istruzioni in linguaggio macchina e usa la linea 

1530 per metterle in memoria e aggiungerle a EX$. 

1530 

Mette in memoria ASC(X$) e aggiunge X$ a EX$. 

1600 

Conversione da decimale a esadecimale (per il dump). 
n 


“Tandy 


10 REM SOSSGOGOUOGOOOOSGOGOGOGGGGOOO OOO EE 
O REM * 
REM * 
O REM * 
O REM * 
* 
* 
* 


* 
* 
FILE COMANDI * 
VERSIONE TRS-RO MOD. I * 
+ 

* 

* 

* 


O REM FERSONAL SOFTWARE 
O REM 
O REM 
O REM 
CLEAR il 


FETTETCSRCCERECECSCERERGE LEALE LELELELE LI 


(67 9ABCDEF" 


O “FILE COMANDI" 


I COMANDI SECUNDI OUESTE KE E" 


SCRIVI 
FRINT" 

1. BATTI 

2, BATTI "= 

3. BATTI 
O PRINT" 


CENTER DOFO OGMI COMANDO — 
PEF CREARE 10 MULLI ‘FITARDI 
> FER FIMIFE" 


BATTI LA LISTA DEI COMANDI: " 
LINEINFUT A$ 

IF AI THEM D70 
IF END “ THEN 
1$=1$+A$+UHF% (17) +CHE$ (0) 
GOTO 180 

1$=1$+STRING$& (10,0) 

GOTO 180 


A COMPLETATA. 
TA CREANDO 11 
OTO 1265 


FILE UOMANDI." 


EXs="" 

FOR F=0 TO ® hi 
GOSUE 1480 

NEXT 


GOSUE 1400 
O FOR E=11 TO 12 
GOSUR 1420 
NEXT È 


V=ST+25 
00 GOSUB 1400 
FOR K=15 TO 28 
GOSUB 1420 
O NEXT È 
O VEST+60 
O GOSUB 
O FOR si 
GOSUR 1480 
O NEXT È 
V=ST+60 
GOSUB 1400 
FOR k=44 TO 48 
GOSUB 1480 
NEXT K 

O VEST+6? 
550 GOSUB 1400 
FOR K=S1 TO 59 
GOSUB 14820 
O NEXT 
O V=ST+64 


1 GOSUB 1400 
L=LEN(1$) 
FOR I=si TQ 
O E=F+1 
X$=MID$(I$,I,1) 
O GOSUB 1530 
O NEXT I 
2=ST+25; 
© GOSUB 16 
O LINEINFUT "NOME DEL FILE” 
L=INSTR(V$,"/ 
IF L=0 THEN 1770 


750 EXS=LEFT$ (EX$,64) +STRING$ (20, CHE$ (O) ) +"0Mp » 
+CHR$ (34) "+CHE$ (34) +CHF$ (17) +CHES (O 
+STRINGE CHR$ (0) 

760 EXS=EX$4+"DUMP "44/4" (STARTEN O "eHige to EMD=X%" 

"AHI $*4") "4 CHRS (13) +CHESCÒ 

770 MID$ (EX$, 22, 1)=CHF$ (201 


88 


B2= 
EX$ 
790 B=VARFTR(EX$) 
800 Bi=B+1: GOSUB 120 
EEK (B1) 
+2: GOSUB 1 
BI=PEEK (B1) 
256+B2 
B1=B4+62 
GOSUB 1220 
MIDS (EX$,10,2)=CHR$ (C2) +CHR$ (01) 
B1=B4+25: GOSUR 1220 
MID$(EX$,14,2)=CHR% (0 
B1=B4+60: GOSUB 1220 
MID$(EX$,30,2)=CHR$ (C2) +CHR$ (C1) 
MID$(EX$,43,2)=CHF$(C2) +CHR$(C1) 
B1=B4+62: GOSUB 1220 
MID$(EX$,50,2)=CHR$(C2)+CHF$(C1) 
B1=B4+64: GOSUR 1220 
MIDS (EX$,61,2)=CHF$(C2)+CHF$(C1) 
BI=VARPTR (EX5) 
IF B<>B1 THEN 1250 
Bl=B+1: GOSUB 1200 
1000 BS=PEEK(B1) 
IF BSCOR? THEN 12 
Bi=B+2: GOSUB 1200 
BS=PEEK (BI) 
1040 IF _BSC>BZ THEN 1250 
1050 PRINT"FRONTO FER CREARE Il FILE 
1060 Bi=B4 
1070 GOSUB 
1090 DEFUSR1=E1 
1100 B4=USR1 (0) 
1110 END 
1120 DATA 
1140 DATA 
1150 DATA 
DATA 
DATA 64,221,225,6: 19999 
IF_B1>32767 THEN Bi=R1-6S524 
RETURN 
NT (B1/256) 


)+CHE$ (C1) 


1 


1-256%C1 
RETURN 
FRINT"STRINGA IN SFOSTAMENTO" 


LINEINFUT"INDIFIZZO DI PAFTENZ 
O.IF LEN(HI$) 4 OR LI 


(HI): 1 1HEN 


TO LEN(H1%) 

TRIS 
NSTR(H$,MID$(H1$,I,1)) 

IF L=0 THEN 1260 

ST=ST+L-1 

NEXT I 

FRINT"EQUIVALENTE DECIMALE":ST 
IF ST: 16384 THEM PRINT 

"NON SI FUO” FARTIR 
DI 4000 HEX": GOTO 1 
EEE (&H40BD) s 
VIAZSO+VD+2: 
THEN 1 


40 
EEK (HH4GRI): 


=INT(V/256) 
V-V14256 

CHR$ (42) 

GOSUB 1520 

X$=CHR$ (VI): F=b+i 
GOSUB 1530 

RETURN 

READ X 

X$=CHR$ (x) 

GOSUBR 1530 

RETURN 

ADSST+ 

IF FICO AND H1+1 
1550 k1=h 

1560 IF AD-32767 THEN nD= 
1570 FOKE AD,ASC(%$) 

{520 EXS=EX$+X% 

1590 RETURN 

1600 REM CONVERSIONE DEC/ESA 


THEN FEINT"ER 


COMANDI 


CON UN 1H4DIE 


: GOTN 790 
a IM E 


1720 MINORE 


EC(1)=INT(Z/4096) 
Z1=Z-k (1) X4096 
K(2)=INT(Z1/256) 
1-K (2) *256 
NT(Z1/16) 
1-16%E (3) 


z% 
FOR I=si T0 4 

Z%6=2$+MID$(H$,k (1)+1,1) 

NEXT I 

RETURN 

PRINT" NON E° CONSIGLIARILE UEEGRE UM 
FILE COMANDI SE NON MELL'S&REA DI 

MEMORIA FROTETTA 
PREMERE BREA 
IL BASIC CON UNA MEM SIZE” 


MINORE DI 
1730 PRINT" CMEM SI AMUALE="puzi n 
1740 INPUT “BATTI CENTER SE VUOI CONTINUARE 
(FERICOLOS CSI 


1750 GOTO 1380 

1770 L=INSTRIVE,",") 

) THEN 181% 
LEFTS (V$,L-1) +" /0MD" 
+FIGHT$ (V®, LEM(VS) L+1) 


O THEN 


CMP“": GUT SO 
1830 GOTO 1790 


Cuore Matto 


Questo programma gira su Atari con almeno 8 K di 
memoria. 

Cuore matto è la versione di un rompicapo noto an- 
che con il nome di “Teaser” o “Shooting Stars”. Lo 
scopo del gioco è di passare da una configurazione in 
cui compaiono dei cuori di colore scuro che circondano 
un cuore di colore chiaro, ad un’altra dove dei cuori 
chiari circondano un cuore scuro. Quando sceglierete di 
spostare un cuore, altri gruppi di cuori varieranno a 
seconda della vostra scelta. 

Scegliendo un angolo, cambieranno quattro cuori in 
un quadrato che include quell'angolo. Scegliendo un 
cuore nel mezzo di un lato della matrice, si invertiranno 
tutti i cuori di quel lato. 

Infine se si sceglie il cuore centrale, verranno invertiti 
tutti i cuori che stanno su di una croce con al centro il 
cuore prescelto. 

Non è molto difficile risolvere il problema se non ci si 
preoccupa del tempo che ci si impiega, ma se si cerca di 
raggiungere la condizione finale nel minor numero di 
mosse possibile, allora la questione diventa parecchio 
più complessa. Dagli esperimenti condotti dalla reda- 
zione si è giunti alla conclusione che un numero di 
mosse abbastanza vicino a quello minimo si aggira 
attorno a 11, anche se non si è sicuri che sia il più 
basso.. 

Se in un qualsiasi momento volete ricondurvi alla 
condizione iniziale, basta premere la lettera “I” (inizio), 
azione questa che verrà contata come mossa regolare. 

Può essere interessante per gli appassionati dell’arte 
di programmare l'uso estensivo di stringhe per gestire 
numeri interi (0-255). 


ma. Per prima cosa un solo carattere in una stringa 
richiede molto meno spazio in memoria di un numero 
(due byte invece di sette). | numeri possono essere 
prelevati con il sistema che adotta l’Atari di divisione 
delle stringhe (vedi linea 920). Il confronto fra le righe è 
anche utile per confrontare gruppi di più numeri alla 
volta. Notate infatti come sia facile controllare se si ha 
vinto o perso nelle linee 360-370. 

| numeri vengono scritti nelle stringhe come simboli 
grafici. 

Molte linee di programma in «Cuore matto» conten- 
gono speciali caratteri grafici che non sono mostrati nel 
listato, ma che è indispensabile inserire se si vuole 
giocare. 

Per scrivere questi caratteri speciali, tenete premuto 
iltasto CTRL mentre battete le lettere e le virgole segna- 
te qua sotto. 

Linea 160: 

Linea 170: 


P$ contiene HCJCLEHEJELEHGUGLG 
G$ contiene ABDE,ABC,BCEF,ADG, 
BDEFHCFI,DEGH,GHI,EFHI 
QRWRWRE 
ARSRSRD 

Linea 590: ARSRSRD 

Linea 600: ZRXRXRC 

Nelle linee 960 e 980 dovrete mettere due cuori 
(CTRL e VIRGOLA) il primo dopo l'apertura della paren- 
tesi e il secondo prima della sua chiusura. Il primo cuore 
della linea 960 ed il secondo della linea 980 come pure 
la parola CHIARO nelle linee 350 e 990 devono essere 
battute con caratteri inversi. Per finire, se volete rispar- 
miare tempo, potete omettere la battitura delle istruzioni 
che si trovano nelle righe da 940 a 1250 e cancellate le 


Linea 570: 
Linea 580: 


208 


TEDLOR 


Ci sono parecchi buoni motivi per usare questo siste- | righe 240, 250, 260. n 
E 
LA&ZZZZZZZAZEZZEZZ ZZZ ZO LG GGZZCUZIETEGURELI 140 FOR 1=1 In È rg D& FI hs th 
+ ISF SG=L: SAIS,S pais * 
* CUORE MATTO PI 160 PSE" VEDI © aste ' 
* PERS TONE sal i DI I70 GS="FEXXY VEIL ri T CER] 
* Ul 180 GRAPHICS , un 
* FERSOMAL SO Tsi 4, 190 PRINT #5;" 
* 
* 


LARGGZZEZEZIZERZZICELICULETEETEELIELTALZ] 


80 REM 
90 REM 
100 DIM FE CIBI SEA 60 I) 
110 DIM 1609; 
120 OFEN #1,4,0,": 
130 D&=CHF$i 60: RE 


JE 
IUIND 
") POLE 
240 FOE 
E FEINTO "SSN 
260 TE 1=8 


O.EMDIOI FAC i 21 


89 


90 


Hs=S$: GOSUR 5 
T=T41 

FRINT CHE$(12! 
PRINT*Numero © (1-9) " 

GET #1,F: N5F-48: IF M=2S THEM 
IF_NC1 OF M>9 THEN S 
GOSUB 920: GET #6,H 
IF H=160 THEN PRINT CHFS( 
FRINT“SCEGLI UN CUORE CHIAFO. 
GOTO 32 
GOSUB 710: JF H$=L% THEN 390 
IF_H$=F$ THEN 430 

GOTO 2590 

FOR 5 TO 190: SOUND © 10,83 ME 
SOUND 0,0,0,0: PRINT CHESC10S) 
FRINT"Niente da f: GOSUR 8 
Goto so0 

PRINT CHR$(125: FOR d=0 TO 14 
FOFE 708,4+16%J: SOUMD 0,50- 
GOSUB 790: FOKE 708,40: GI 
NEXT d: SOUND 0,9,0,0 
FOKE 656,1: POKE 657,10: PRINT"ALLE 
PRINT"Cì sei riuscito in 
GOSUB 800 
FOKE 764, 
PRINT"Tì piacerebbe giocare 
FRINT"(S / M)": GET #1,k: IF 
FRINT"Grazie infinite per la 
FRINT"za.": END 

GRAPHICS © 
POFE 756,226: FDKE 1 
FOSITION 7, 


GOSUR #40 


"MOSSA M. "st 


si 


IR 790 


PRINT 


#6: "% VEDI TESI 
FOSITION 7, * VEDI TEST 
FOSITION 7, "& VEDI TESI 


POSITION 7,9: FFINT 
FOR X=7 T0 1% SIEP 
POSITION x,v: 
NEXT Y: NEXT x: 
FOR N=1 TO 9: 


"% VEDI TEST 
vu 


IF PRINT 
IF PRINT 
IF FRIMNT 


IF F=4 THEN FRIMT 


53 N56 (MM 


IF F=5 THEN FRINI FUILI) 
NEXT RETURN 
FOF L=i TO G: F=I ga 
SOUND 9, 5*M+50, 10, GOSUR Ban 
SOUND 1*M4+8,10,8 
NEXT L: SOUND 0,0, GOSUE & 
FOR TO C: NEXT RETUER 
GOTO 75m 
Goto 750 
FOFE 764,055 
FRINT ."(Frem un tasto qualung 
IF_PEEF (764) 3255 THEN QUO 
RETURN 
SN=N: J=S% (N-1): FOR 1 10 5: n= 
IF_N=O THEN 910 
GOSUR 1F F=1I 


PRINT #t6:H8 (Mb); 


AND Z=160 THEM FOSITION 
FRINT #6:E8:: H$(M,M)<RS 
IF F=3 AND 75128 THEM POSITION 
PRINT # H$ (N) 
NEXT I: MI: RETURN 
*N-1))r 
X,Y: RETURN 
GOSUB SS: F 
{INT"Farti da queeta c 
#0 INTORNO f& )" 
OSUE 64n 
INT CHR$! 
"Ed arriva a 2.1 INTORNO è 
990 FRINT"Sceglier 1 cuOrI chiari." 
1000 GRAPHICS 2: F=4: BOSUR 
1010 FRINT"Questi & 


OSUÈ 44n 
nt Laura 
GNSUE Q00 


no 1 nu 


SETCOLOR 4,2,8: SETCOLOE =, a 


THEN FRINT Hagnoe 


OSUR ATO: 


#3,10,8 


IRRALI" 


na" 
‘dr 


Do 
na” 
SIEE 


40: FETUEN 


Lone..." 


3OSUE 80m 


Dion, 


ASUASEOIAI), 


FRINT"Da come scegli": 

FRINT" cambieranno di colore" 

1040 FRINT"diversi gruppi di cuori." 

1050 GOSUB 800: F=2: GOSUB SSO: GOSUBR 440 
1060 FRINT"Se scegli la casella centrale" 
1070 PRINT"cambieranno colore i cuori" 
1080 FRINT"in croce." 

1090 GOSUB 770: N=5: GOSUB 710: GOSUB 200 
PRINT CHR$ (125); 

"Se scegli la casella mediana" 

dì un bordo, l’intero bordo" 
PRINT"cambiera’ colore." 

GOSUB 770: N GOSUB 710: GOSUR 800 
PRINT CHE$ (125) 3 

“Se scegli una casella d” 
ambiera’ colore il quadrato" 
FRINT“che comprende quell’angolo"” 
SOSUE 720: GOSUB 710: GOSUB 800 
PRINT CHR$ (125 
"Se arrivi ad 
PRINT"Sscuri F 
GOSUR 640: GOSUR 
PRINT CHES (125) 
"Fremi il pul 
FRINT"dalla po 
220 PRINT"HAI CAFIT 
1240 FOKFE 764,2! 

250 RETURN 


vere tutti 1 quadre 
DI 'iiiio, 


ati” 


inte <I> PER RI 
zione iniziale 
LE ISTRUZIONI 

GET #1,F: IF F085 THEN 940 


TRE" 


0099200000005 000008 


Animazione 3D 


Questo programma gira su Atari con almeno 8 K di 
memoria. 

Solitamente quando si vogliono scrivere programmi 
in cui compaiono disegni tridimensionali, non si può 
pretendere una elevata velocità di elaborazione. La 
ragione di ciò diviene evidente se si considera il fatto 
che c'è un terzo asse di cui tener conto. 

Invece di calcoli laboriosi per le coordinate lungo gli 
assi X, Y e Z (posizione orizzontale, verticale e prospet- 
tiva spaziale), questo programma mette a fuoco i punti 
finali di ogni linea usando la funzione DRAWTO. 

Questo metodo permette di disegnare velocemente 
senza perdere l'impressione di tridimensionalità. Il mo- 
do migliore per vedere il procedimento all'opera è di 
dare il RUN al programma. 

Il modo con cui sono strutturati i vettori può sembrare 
all’inizio abbastanza complesso, ma il concetto è piutto- 
sto semplice. 

L'idea di cui tener conto è che il computer deve ricor- 
darsi che cosa è stato disegnato e dove (da qui la 
necessità di usare i vettori). 

Come fa il computer a sapere quando deve comincia- 
re a cancellare? 

Per cominciare, bisogna scegliere il numero di linee 
che vogliamo vedere visualizzate sullo schermo ogni 
volta: poniamo 30. 

Ora diamo invece un'occhiata da vicino a quello che 
fa il ciclo principale. 

Il programma passa attraverso le posizioni del vettore 
incrementando la variabile A, che memorizza la linea 
visualizzata in quel momento nella posizione del vettore 
e cancella la variabile R; il che significa che la linea è 
stata immessa nella locazione successiva del vettore. 
Dopo aver completato questo ciclo, per esempio quan- 
do A è stato incrementato di 30, A ritorna a 0 cosicché il 
ciclo può riprendere dalla locazione 0. 


Fino a che non c'è niente da cancellare durante il 
primo ciclo (i contenuti sono portati a zero durante l’ini- 
zializzazione del programma), è il momento in cui le 30 
linee sono visualizzate. Alla trentunesima linea comin- 
cia il secondo ciclo. Questo è il momento in cui viene 
messo un dato nella locazione R in modo che venga 
cancellata la prima linea sullo schermo. Procedendo, il 
programma sostituisce la locazione usata per memoriz- 
zare la prima linea con le coordinate della linea 32 in 
modo da non sprecare spazio nel vettore. Questo siste- 
ma può essere immaginato come un serpente: una 
volta raggiunta la lunghezza desiderata (variabile W) si 
mangia la coda, e la testa prende il posto dell'ultimo 
segmento. 

Pur essendo il programma già soddisfacente in grap- 
hics 8, non è difficile cambiare la risoluzione effettuando 
queste modifiche: cancellare le linee 180, 190 e 200; 
riscrivere le linee 140, 330 e 350 in questo modo: 


140 GRAPHICS 8+16: A=-1 
330 COLOR 0: PLOT X1 (R): 
DRAWTO X2(R), Y2(R): 

COLOR 1 
350 NEXT COUNTER: GOTO 60 


*Cambiare il numero 159 in 319 nelle linee 380 e 390; 
cambiare il numero 95 in 191 nelle linee 400 e 410; 
inserire la linea 145 COLOR 1. 

Risultati interessanti si possono ottenere cambiando 
le costanti numeriche nel programma. Per esempio nel- 
le linee 160-170 cambiando 1.5 in un numero più alto si 
sparpaglieranno di più le linee. Un'altra modifica possi- 
bile è cambiare la lunghezza del ciclo nella linea 220, 
modificando così la lunghezza dei tempi di cambiamen- 
to dei colori. 

Ed ora potete lanciarvi ad esplorare il modo della 
computer art. [] 


ATARI 


10. REM FEXERIEROANIRIRRENI IERI VI ARI RARI ATA REE 
20 RI 

zo 
20 
so 
60 
70 
20 
9a E 
100 GRAFHICS © 


ANIMAZIONE =D 
VERSIONE ATARI 


PERSONAL 


* ’ 
* +’ 
* * 
* SOFTVARE 4 
* * 
* 4 


CRTTITESETTLIESCORCLELELEGELCLEGLELELELI 


110 FRINT"OUANTE LIMEE 
120 DIM x10W), 
130 FOR I=0 TO 


VUOI O": 
{IL VI CN 
xi (D=o: 


INFUT 


> 


140 


150 X1(W)=@05 XD WD) =100: sn] n 
160 Risi. (TNT (7*RND (0) ) 

* CIMT (78*RMD (1) 
170 % CIMT (7*RMD (0) ) 


?*RMD 
(3*RND (1) d+1 

190 IF OLDCOLE=COLE THEN 19 
200 COLOR COLF 


REM 
FOR COUNTER=1 TO INTC(10*FND(0)) +10 


O THEN V=bl: GOTO 260 


DEO XI (AY=X1(V): 
YICM)=VI 0): 
X1 (A)=XI (A+ 
YILA)=Y1 (6) + 


XD(AV=XZ(M) 1 


I ZIA) 


DRAWTO X2(R) (FR): COLOR COLF 

IF A=4W THEN 1 

NEXT COUNTER: OLDCOLE=COLF: GOTO 160 

REM 

REM 

IF X1(A)>159 OR X1(K)C0 THEN R1= 

X1(A)=X1(A)+R1 

390 IF X2(A)>159 OR X2(K) 
XZ(A)=X2(A)+R2 

400 IF Y1(A)>95 ( 


O THEN R 


(A) 0 THEN RE 


i) 0 THEN R4=-R4: 


Goro 


Caleidoscopio 


Questo programma crea dei disegni molto belli con 
simmetria ottagonale. Date il RUN al programma, quin- 
di premete il pulsante START sulla destra della tastiera. 
Nel centro dello schermo comparirà un puntino lampeg- 
giante. Usando il joystick inserito nello slot 1 si può 
muovere il punto lungo tutta la superficie dello schermo. 
Se si tiene premuto il pulsante di fuoco, il punto lascerà 
lungo il suo tragitto una linea colorata. Altre sette imma- 
gini speculari di quella linea appariranno sullo schermo, 
tre di queste dello stesso colore della prima e le rima- 
nenti di colori diversi. 

Premendo il pulsante SELECT (posto sotto lo START 
sulla destra della tastiera), il computer farà da solo dei 
disegni e non resterà altro da fare che sedersi su qual- 
che sedia comoda e guardare lo schermo in preda a 


terribili dilemmi artistici. Se poi si volesse riprendere a 
disegnare con «le proprie mani», basterà riprendere il 
joystick e muovere la leva. Premendo il pulsante 
CLEAR verrà cancellato il disegno in modo da poterne 
fare un nuovo. 

Se si mette un joystick nello slot 2, si potrà controllare 
anche il cambiamento dei colori, premendo in avanti 
cambieranno i colori dello sfondo, spingendo a sinistra 
o a destra la leva dello stick cambieranno i colori delle 
linee. Premendo il pulsante di fuoco durante una di 
queste operazioni non cambieranno i colori, bensì la 
luminosità degli stessi. Con otto tonalità per ognuno dei 
sedici colori, si hanno a disposizione oltre DUE MILIONI 
di combinazioni possibili!!! n 


ZVATARI 


10 REM FIHUIHHOGCONOROSSOGOSOGOGO 


AIA 

DONE] DAREZITTTI 
ZO REM * CALEIDOSCOPIO M 
40 REM * VERSIONE ATARI 

SO REM 5 
50 REM £ FERSONAL SOFTUARI 3 
70 REM * 4 da 3 
CIONNGAME ZZZ ZIIZETITITITTTTTI s 
So Den MAAASSZZIETITTTTTTTA 


100 GRAFHI 


HO74D:: FUSITION © 
3 I 
FOSITION 23,4: sò 
INT 'FREMI SIART CIOVSTICI 
SETCOLOE 


FOFHE L+S 
Ti=z ti 
GRAPHICS 
Has o 


160 X=47: 


TICH (0): GOSUB 201; 

IF FEE (START) =S" THEN 406 
190 GOTI 180 
DOO FLO Y+A. vi 


COLOR 1: FLO rar 


COLOR C-CXT: GOSUE 
IF_PEEK (KEY 
X=475 vari 


coLoe 
mE FEY,O 


(3441 -PE SP) 
THEN X%=X-1+F%(X=M) 
THEM X=%+1-P$ (XeP1 


IF U=1S THEN RETURN 
RIGEIDAD 
290 IF V=14 THEN H4=H4+1- (030): 14=14+7-0) 
) 
) 
THEN Hi=sHi+1- (0930): Li=L1+2-4 
6 THEN Hi=o 
6 THEN Li=0 
4=7 THEN H: +1- (=) L D+ 
6 THEN 
€ THEN 
380 SETCOLOR 0,0,0 COLOR 1,H1,L1 
390. SETCOLOR 2 ,H2.L2 SETCOLOR 4,H4,1.4: RETURN 
400 T= +INT(END(0) #10): 
IF (©) 15 THEN 180 
IF RNDC0) 0.1 THEN T=1 
L=2+RND (0)%10: FOR T=1 TO Li GOSUB Dio: NEYI 
GOTO 400 
FLOT X+A,Y: FLOT D-X,% PLOT n Y 
PLOT X+A,F- xi X v=?: RETURN 


n 


Odissea nello spazio 


Il programma consiste nel ricercare una astronave 
dispersa in uno spazio cubico di 7 chilometri di lato. 

La ricerca viene effettuata mediante l'input di tre coor- 
dinate, che rappresentano la x, la y e la z dello spazio 
tridimensionale. 

Dopo l'inserimento di dette coordinate, il programma 
manda i seguenti messaggi: 

VERSO L'ALTO 
se la coordinata x della astronave è maggiore di quella 
inserita. 
VERSO IL BASSO 

se la coordinata x della astronave è minore di quella 
inserita. 


CON UN ALTRO VALORE DI Y 

se la coordinata y della astronave è diversa da quella 
inserita. 

IN AVANTI 
se la coordinata z della astronave è maggiore di quella 
inserita. 

INDIETRO 
se la coordinata z della astronave è minore di quella 
inserita. 

Il giocatore ha 15 ore per trovare l'astronave; ogni 
tentativo fallito fa diminuire di un'ora la durata dell'ossi- 
geno a cui è vincolata la vita degli astronauti. 

[| 


3 ni 
ZX80 


10 REM OBOPOUSOROLOUOOONGNOOSOROLONOROGOOLOOE 
20 REM X 

REM £ ODISSEA NELLO SFAZIO * 
40 REM * VERSIONE SINCLAIR ZX80 * 
50 REM % * 
60 REM £ FERSONAL SOFTWARE * 
70 REM X * 
80. REM UUGUUOVOLOGUOUGUOOOOOOUOGOOSOROUOGGGOIO 
90 REM 
100 FRINT , "ODISSEA NELLO SFAZIO" 
110 PRINT 


O PRINT "HAI 15 ORE FER RITROVARE" 
) FRINT "UN'ASTRONAVE FERSA IN UNO" 
O FRINT "SFAZIO DI 7 KM CUBI." 

SO PRINT 


190 FOR J=1 TO 15 

PRINT 

PRINT “INSERISCI LE TRE COORDINATE X,YV,Z" 
INFUT D 

) INFUT E 

40 INFUT F 


D,E,F 
=D AND E=E AND C=F THEN GO TO 490 


"(SHIFT A) COORDINATE ERRATE (SHIFT A)" 


"ORE DI OSSIGENO RIMASTE -"s 15-J 


MUOVITI"? 
340 IF AD THEN FRINT "VEI 
) IF AD THEN PRINT "% 
360 IF NOT E=E THEN 


FRINT “CON UN ALTRO VALORE DI \ ": 
370 IF CF THEN FRINT "IN AVANTI" 
380 IF CF THEN FRINT "INDIETRO" 


- 


390 PRINT 
400 IF J=14 THEN 
PRINT "FERICOLO -— MORTE IMMINENTE" 
410 NEXT J 
420 CLS 
420 PRINT 
440 PRINT "DISASTRO - GLI ASTRONAUTI SONO MORTI" 
450 PRINT 
460 PRINT" ERÀ ALLE COORDINATE" 


INT c 
To 
490 FFINT 
500 FRINT, 


puzena 


MPLIMENTI. HAI 
RONAVE A "3 16-43" 


TROVATO LA" 
ORE DALLA FINE" 


"UN'ALTRA MISSIONE "" 
HS 


THEN G0 TO 1 
“ARRIVEDERCI ALLA PROSSIMA MISSIONE, “ 
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Roulette russa 


È ni 
ZXBO 


“"HAl UNA FISTOLA 
“PROIETTILE DENTFO 
SRUOTERAI IL TAMBURO E" 
"SFARE 10 VOL 
“TE LA SENTI DI R 
170 INFUT A$ 


IF A$="NO" THEN IGO TO 440 
EMI NEV LINE FER SPARARE" 


PRINT 


MEM: ME TTT TCS IIREIALIOLILEZILIGEZZZIZI 


2O REM % î 
30 REM * ROULETTE Fi 

40 REM * VERSIONE SINCLA 

SO REM X _ 

50 REM % PERSONAL, SOFTUAFE 

70 REM % 

80 REM SUOUOOSOSGOGOUOUOROOORO OGGI FF FA A 
90 REM 

100 FRINT, “ROULETTE RUSSA" 


Il principio del gioco è semplice: hai una pistola con 
un solo proiettile, ruoti di tamburo, tiri il grilletto e... 


BANG o CLICK. 


LET 
LET 
PRINT, "SFARO NUMERO "3J 
IF 66 THEN GO SUR 4650 

IF G=6 THEN GO TO 0 


tl) 


IF J=10 THEN GO TO Ton 
IF_d710 THEN GO TO DIO 
CLS 

FRINT 

PRINT 


FRINT, "SEI SOFRAVVI! 
PRINT “SE VUOI RISCHIAF 
FRINT "MORTE, BATTI R FE 
ERINT "O F_ FER FERMARTI. 
INFUT B$ 

CLS 

IF E$="R" THEN GO TO 180 
O PRINT "CODARDO... ": 

450 GOTO 440 
460 LET H=RND(2 
470 IF H=1 THEN PRINT "$ CLICK $" 
480 IF H=2 THEN FRINT "TAMBURO VUOTO" 


ORA LA" 
HIARE" 


490 RETURN 
500 PRINT "EANG..."; 
510 GOTO 500 


dh datanova sn 


applicazioni d'informatica 


I COLLAUDATI PACKAGES A VOSTRA 
DISPOSIZIONE 


abbonamenti 

affitti 

amministrazione condominali 
agenzie di pubblicità 
statistica parametrica e non 
contabilità semplificata 
contabilità per enti pubblici 
cartelle cliniche 

indirizzi 
organizzazione.fiere 

studi professionali 


realizzate in CBASIC sotto CP/M 


20121 Milano - via Lovanio 8 - tel. 02/6592633 
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ASSEGNATI ALTRI DUE 
PERSONAL COMPUTER 
DEL CONCORSO CAMPAGNA 
ABBONAMENTI JACKSON 1982 


Si sono svolte altre 2 estrazioni 


Sono risultati vincitori di un personal 
computer Sinclair ZX-81 i signori: 


Scopinaro Francesco 
Via Vespri Siciliani, 7 - Roma 


La Notte Giuseppe 
Via Concordia, 7 - Corsico (MI) 


Congratulazioni! 


del Concorso Campagna Abbonamenti Jackson 1982. 


DO 


Reverse 


Questo programma occupa 1 K di memoria centrale. 
L'obiettivo del gioco è disporre le nove cifre da 1 a 9, che 
inizialmente sono disposte a caso, nel loro ordine natu- 
rale mediante inversione delle prime N cifre. Ad esem- 
pio, se viene stampato 

567894321 


rispondendo 5 si otterrà 
987654321 
e rispondendo ora 9, si avrà 
123456789 
ed il gioco è concluso. 


REM UUOOOPIIIIISOOVONIVOORIONIIIAOGOGAOAOE 


REM % * 
REM * REVERSE * 
REM * VERSIONE SINCLAIR ZX80 * 
50 REM * * 
60 REM X FERSONAL SOFTWARE * 
70 REM * * 
80 REM IUGGOGOOUUOSOGGGGGRGG RARO GOVONE 
100 PRINT " REVERSE" 
110 PRINT 
120 PRINT"FREMI NEW LINE FER INIZIARE" 
130 INFUT Y$ 
140 DIM A(9) 
150 I=1 109 
160 ND (9) 
170 THEN GO TO 210 
180 1 TO 1-1 


190 IF N=A(J) 
200 NEXT J 
210 LET ACI)=N 
220 NEXT I 

230 LET C=0 


THEN GO TO 160 


240 CLS 
250 FOR I=1 T09 
260 FRINT ACI)" 
270 NEXT I 

O PRINT 
PRINT 


"NUMERO DI CIFRE DA IMVERTIRE"" 


O TO 360 


LET ACD=ACMN+1-1) 
00 LET AEN+1-1)=J 
O NEXT I 


IF NOT I=ACI) 
450 NEXT I 
460 FRINT 


THEN GO TO 240 


"HAI FATTO " “ INVERSIONI" 
470 FRINT "UNA ALTRA FARTITA=" 
480 INFUT Y$ 
490 IF CHR$ (CODE (Y$))="S" THEN GO TO 150 
500 STOF 


REM come dati 


La zona in cui è allocato il programma è l'unica della 
memoria che viene conservata su nastro magnetico. 
Per questa ragione, se si vogliono memorizzare dei 
dati, è necessario inserirli all’interno del programma 
stesso. 

Questi dati ovviamente non devono influire sulla logi- 
ca del programma e ciò è realizzabile utilizzando l'istru- 
zione REM all’inizio del programma. 

È noto che l'indirizzo di inizio del programma è 16424, 
e che in una linea così organizzata: 


nn REM. .. (new line) 

il numero di linea occupa sempre due byte ed il REM ne 
occupa uno, come il new line; inserendo dopo il REM 
una serie di caratteri fittizi occupanti un byte ciascuno, è 
possibile riservare una zona di memoria dove successi- 
vamente si inseriranno i dati da registrare, carattere per 
carattere. (Ovviamente il numero dei caratteri fittizi in- 
seriti inizialmente deve essere sufficiente per contenere 
la quantità di dati prevista.) 

Per inserire i dati carattere per carattere è necessaria 


95 


96 


l'istruzione: 

POKE 16427,p 
poiché abbiamo visto che il numero di riga (nn) occupa i 
due byte e REM ne occupa uno: 


16424 
16425 "N 
16426 REM 
16427 p 
16428 


Questo programma permette di memorizzare dati per 
un massimo di 63 caratteri. La prima locazione utilizza- 


bile per la memorizzazione è la 16427; questo byte 
viene utilizzato come contatore di caratteri inseriti. Ini- 
zialmente questo contatore è posto a zero e quindi nella 
REM iniziale è visualizzato con un blank. 

Dopo ogni INPUT viene eseguito un controllo per 
verificare se l’area rimasta disponibile è sufficiente a 
contenere il dato stesso. 

Alla fine di ogni dato il programma inserisce automati- 
camente un carattere “tappo” (codice 70) che permette 
in fase di stampa di separare un dato dall'altro. 

Per la memorizzazione di un numero maggiore di dati 
si devono inserire più caratteri nella REM, modificando 
opportunamente i controlli necessari. IL] 


. tini 
ZXB0 


REM bFF 
PRINT" 
IMPUT 7% 
IF Z THEN GO TO 340 
PRINT "DATO DA INSERIRE: 
INFUT 6% 


VOLTE FY...PP 
ZZAZIONE M O STAMPA 57" 


116427) 


L$ (B$) 
+1 
R$" 
(ES) 
"SFAZIO INS 


THEN 60 TO 
(67-C) THEN 
IFFICIENTE" 


TO 260 


250 GO TO 119 

FOR F=1 TO + 

O FOFE 16427+C+F, CODE (A#) 
LET ASSTL$(A$) 


740+F 148 


IF PEEK(16427+F)=148 THEN PRINT 

IF F=C THEN 60 TO 430 

IF FEEK(16427+F)=148 THEN GO TO 410 
FRINT CHF$(PEEF (16427+F))3 

410 LET F=F+1 


400 
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Calcoli logici 


L'uso corretto delle variabili logiche aiuta a scrivere 
programmi più efficienti. Il manuale dello ZX80 introdu- 
ce il concetto di calcolo logico con la frase IF, che ha la 
sintassi 


IF (condizione) 
THEN (istruzione) 


che è equivalente a 


IF (variabile logica è vera) 
THEN (istruzione 


Qualsiasi variabile numerica può essere usata come 
variabile logica in una fase IF. Se una variabile numeri- 
ca è zero, sarà considerata come falsa in un calcolo 
logico, altrimenti sarà considerata vera. 

Per esempio: 


IF NOT D=0 THEN PRINT D 


ha il medesimo effetto di: 
IF D THEN PRINT D 


Nel primo caso viene creata una variabile logica tem- 
poranea che viene posta a zero (falsa) se D=0 oppure a 
—1 (vera) se D non è uguale a zero. Viene quindi 
analizzato il valore di tale variabile logica temporanea. 

Nel secondo caso, è la variabile D stessa che viene 
presa come variabile logica da analizzare. Allo stesso 
modo: 


IF NOT D=—1 THE PRINT D 
ha lo stesso effetto di 
IF NOT D THEN PRINT D 


Nel primo caso viene creata una variabile logica tem- 
poranea, quindi posta a zero (falsa) se D=—1, oppure a 
—1 (vera) se D è uguale a 0. 

Nel secondo caso se D è uguale a —1 allora NOT D è 
Uguale a zero (falsa), se D è diverso da —1 NOT D è 
Uguale a —1 (vera). 

| calcoli logici possono essere introdotti anche in 
espressioni artimetiche, e, ancora una volta, prende- 


ranno il valore zero se sono falsi, oppure —1 se sono 
veri. Ad esempio: 


LET S=0 
IFR> 15 THENLETS=7 


è equivalente a 
LET S=-7* (R>15) 


sima 
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Libreria di Programmi 


Alcuni suggerimenti per crearvi una vostra biblioteca 
di programmi: 

1. Non registrate tutti i programmi su un'unica cas- 
setta; questo, se da una parte consente di raggruppare i 
programmi in poco spazio, dall'altra vi mette in difficoltà 
nel caso di una rapida ricerca di un particolare program- 
ma, anche se etichettato con una etichetta vocale. 


[— gs 7 pu 
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Occupazione in memoria di una linea di programma 


Quando si scrivono programmi per piccoli calcolatori, 
è importante sfruttare nel modo migliore la capacità 
della memoria. 

Il primo accorgimento da seguire, se si scrive un 
programma in Basic, è quello di conoscere quanto spa- 
zio questo occupa all'interno della RAM. 

A questo scopo ricordiamo che: 

1. I numeri di linea sono memorizzati in due locazioni 
eccetto quando seguono GO TO e GO SUB; in questo 
caso vengono memorizzati simbolo dopo simbolo, un 
simbolo per locazione; 


Nel secondo caso (R>15) prende il valore —1 se è 
effettivamente R > 15, e così S è posta uguale a 7 = 7* 
—1.Se invece R < 16 allora (R > 15) prenderà il valore 
zero, così S sarà posta uguale a 0 = —7*0. 

In tal modo, incorporando calcoli logici ed espressioni 
artimetiche, si possono a volte eliminare degli IF non 


indispensabili. 
(| 


2. Registrate i programmi, uno per ogni facciata, su 
cassette della durata di pochi minuti, scrivendo chiara- 
mente di che programma si tratta sull'etichetta e sulla 
copertina della cassetta. 

3. Duplicate tutta la vostra libreria; in questo caso 
potete anche utilizzare una sola cassetta di lunghezza 
appropriata, ricordandovi però di inserire sempre una 
etichetta vocale prima di ogni programma e di annotare, 
se possibile, il numero di giri del registratore a cui inizia il 


programma. 
Questa duplicazione sarà utile in caso di perdita del- 
l'originale o anche di un suo danneggiamento. Òw 


2. parole chiave e simboli vengono memorizzati uno 
per locazione; 

3. ogni linea termina con 76H (118 in decimale) che 
occupa una locazione. 

Perciò la linea: 

340IF 1 < 0 OR | > 6 THEN 
GO TO 510 (new line) 

occuperà 16 Jocazioni. Si noti che il numero di linea, 
340, è memorizzato in codice binario e perciò occupa 
due caratteri in ogni caso. 

Invece il numero di linea presente dopo il GO TO, in 
questo caso 510, occupa una locazione per ogni cifra. 

Nel caso in cui la memoria risulti insufficiente per un 
programma, una soluzione può essere quella di rinume- 
rare le linee dello stesso facendo in modo che i numeri 
di linea presenti dopo i GO TO e i GO SUB occupino 
meno locazioni (cioè siano composti da un minor nume- 
ro di cifre). [] 
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IBM PERSONAL COMPUTER: Unità di sistema fino a 256 Kbyte, con micro- 
processore 8088 a 16 bit. 2 unità drive per minifloppy da 160 Kbyte ciascu- 
no. Monitor fosfori verdi 12”, 25 righe per 80 col. Stampante. Alimentatore. 


importato e distribuito da 


riser SR 


SENTRI DI DISTRIBUZIONE: HARD & SOFT SIEM SRL. Ma i oostantinopoli 50, 47045 Miramare di Rimini, Tel. 0541- -31060/759076/ 
SORA? @ AVELCO S.R.L., Via Cornigliano 47, Genova, Tel. 01 10-602994 @ DP INOFSHOP S.N.C., V.le Storchi 10/10A, 41100 Modena, Tel. 059 

21 @ SIRIO SHOP, V.le Certosa 148, Milano, Tel 02: SOATTAIAOSTTOISOGO7E8 ® STUDIO P, Via Paganino Bonafede 2/A, 40139 Bologna, Tel 
051-548080 @ INFODIS S.R.L., Via A. Oriani 10, 04100 Latina, Tel. 0773-491271 @ C..S.D. Via Pasubio ti, 58100 Grosseto, 0564-414233 


Apple cresce. 


Apple ha introdotto il concetto di personal in tutto Apple. Oltre al già famoso e collaudatissimo Apple Il, la Iret 


il mondo. E in tutto il mondo Apple __ presenta ApplellI, più potente e adatto ad usi specia- 
cresce. Cresce anche in Italia dove listici. E poi video per ogni esigenza, a fosfori verdi 

la Iret, che lo importa e ne cura Ai 0 a colori, stampanti e decine di accessori e programmi. 
l'assistenza, può oggi annunciare E naturalmente crescono 


l’esistenza di una rete di vendita le vendite di Apple, perché 


di oltre 200 centri specializzati che ;S ca \ il personal computing 
fanno di Apple il loro cavallo ——___ SNULIStà piccole aziende, 
di battaglia. professionisti e privati. È facile 


Ma cresce anche la gamma peri prevedere quindi che Apple continuerà a crescere. 
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